[gitmo/MooseX-Object-Pluggable.git] / t / lib / CustomNS / Plugin / Foo / ExtensionFor / Baz.pm

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;
Commit	Line	Data
0a369903	1	package CustomNS::Plugin::Foo::ExtensionFor::Baz;
	2
	3	use strict;
	4	use warnings;
	5	use Moose::Role;
	6
	7	around baz => sub{
	8	my $super = shift;
	9	my $self = shift;
	10	"foo'd baz CNS " . $super->($self);
	11	};
	12
	13	1;