X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frole-duplication.t;h=124909d55da832bead98814c8ae8a12582af31a2;hb=c36f405341b2c749dc925f7b0aff40c54891c942;hp=4227777a1725bf40b3aad752d69c543282fad124;hpb=1fd9cd28bcda28ba91ad7fd2b241586a32196213;p=gitmo%2FRole-Tiny.git diff --git a/t/role-duplication.t b/t/role-duplication.t index 4227777..124909d 100644 --- a/t/role-duplication.t +++ b/t/role-duplication.t @@ -4,7 +4,7 @@ use Test::More; { package Role; use Role::Tiny; - around foo => sub { my $orig = shift; 1 + $orig->(@_) }; + sub foo { my $orig = shift; 1 + $orig->(@_) }; package Base; sub foo { 1 } }