X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FCustomNS%2FPlugin%2FFoo%2FExtensionFor%2FBaz.pm;fp=t%2Flib%2FCustomNS%2FPlugin%2FFoo%2FExtensionFor%2FBaz.pm;h=aa14429a13fd8b6756e1b9d31622f7a2e7ee4ff0;hb=0a3699035d5ad670bca87b40d8622f3dee19ecc3;hp=0000000000000000000000000000000000000000;hpb=208f7b2702330c0187b265df3d20ef1702de0640;p=gitmo%2FMooseX-Object-Pluggable.git diff --git a/t/lib/CustomNS/Plugin/Foo/ExtensionFor/Baz.pm b/t/lib/CustomNS/Plugin/Foo/ExtensionFor/Baz.pm new file mode 100644 index 0000000..aa14429 --- /dev/null +++ b/t/lib/CustomNS/Plugin/Foo/ExtensionFor/Baz.pm @@ -0,0 +1,13 @@ +package CustomNS::Plugin::Foo::ExtensionFor::Baz; + +use strict; +use warnings; +use Moose::Role; + +around baz => sub{ + my $super = shift; + my $self = shift; + "foo'd baz CNS " . $super->($self); +}; + +1;