moo-multi-before-with-moose

test-moo.pl

#!/usr/bin/env perl

# This code is working.

package R1;
use Moo::Role;

before 'foo', 'bar' => sub {
    print "before\n";
};

package main;
use Moo;
with 'R1';

sub foo {}
sub bar {}

main->foo;

test-moose.pl

#!/usr/bin/env perl

# This code is broken.
# It prints the following error:
# Can't use string ("bar") as a subroutine ref while "strict refs" in use at /Users/mmcleric/perl5/perlbrew/perls/perl-5.16.1/lib/site_perl/5.16.3/darwin-2level/Class/MOP/Class.pm line 1079.


package R1;
use Moo::Role;

before 'foo', 'bar' => sub {
    print "before\n";
};

package main;
use Moose;
with 'R1';

sub foo {}
sub bar {}

main->foo;