in reply to Re^2: Mocking a method defined in a Moo Role
in thread Mocking a method defined in a Moo Role

That's not working for me either, and it seems like it should. Here's the sketch I'm using:

MyRole.pm

package MyRole;
use Moo::Role;

sub foo {
    return 'bar';
}
1;

[download]

rolesketch.pl

use 5.016;
package MyClass;

use Moo;
use FindBin qw($Bin);
use lib $Bin;
with 'MyRole';

around foo => sub {
    my ($orig, $self) = @_;

    return 'Wrapped ' . $self->$orig;
};

package main;

package MyRole {
    sub foo { return 'baz' };
};

my $obj = MyClass->new;
my $res = $obj->foo;
if ($res =~ /baz$/) {
    say qq{OK, got $res};
}
else {
    say qq{Not OK, got $res};
}

[download]

Replies are listed 'Best First'.
Re^4: Mocking a method defined in a Moo Role
by PopeFelix (Beadle) on Jun 24, 2016 at 18:25 UTC

    Thanks to mst on #moose:

    MyClass.pm

    package MyClass;

use Moo;
use FindBin qw($Bin);
use lib $Bin;
with 'MyRole';

around foo => sub {
    my ($orig, $self) = @_;

    return 'Wrapped ' . $self->$orig;
};

    [download]

    rolesketch.pl

    use 5.016;

use FindBin qw($Bin);
use lib qq($Bin);
require MyRole;

our $orig = MyRole->can('foo');
no warnings 'redefine';
*MyRole::foo = sub { goto &$orig };


{
    local $orig = sub {'baz'};
    require MyClass;
    my $obj = MyClass->new;

    my $res = $obj->foo;
    if ( $res =~ /baz$/ ) {
        say qq{OK, got $res};
    }
    else {
        say qq{Not OK, got $res};
    }
}

    [download]
[reply]
[d/l]
[select]
Re^4: Mocking a method defined in a Moo Role
by choroba (Cardinal) on Jun 24, 2016 at 18:48 UTC
    The following line is missing in MyRole: 
    use Moo::Role;

    [download]

    Also, foo and call are different subs.

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]
[select]
      Thanks, I corrected that.
[reply]

In Section Seekers of Perl Wisdom