Select Code to Download

package 'MyRole';
use Moo::Role;
...
sub foo { 
    return 'blah';
}

package MyClass;
use Moo;
...
   }
   return $self->$orig;
}

use MyClass;
use Test::Most;
...
my $obj = MyClass->new;
# Does not work
is $obj->foo, 'bak', 'Foo is what it oughtta be';