6 use Test::More tests => 4;
17 'My::Role::baz(' . $next->(@_) . ')';
25 sub baz { 'Foo::baz' }
27 __PACKAGE__->meta->make_immutable(debug => 0);
33 is($foo->baz, 'Foo::baz', 'got the right value');
36 My::Role->meta->apply($foo)
37 } 'successfully applied the role to immutable instance';
39 is($foo->baz, 'My::Role::baz(Foo::baz)', 'got the right value');