Help for this page

Select Code to Download


  1. or download this
    package 'MyRole';
    use Moo::Role;
    ...
    sub foo { 
        return 'blah';
    }
    
  2. or download this
    package MyClass;
    use Moo;
    ...
       }
       return $self->$orig;
    }
    
  3. or download this
    use MyClass;
    use Test::Most;
    ...
    my $obj = MyClass->new;
    # Does not work
    is $obj->foo, 'bak', 'Foo is what it oughtta be';