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

package CustomNS::Plugin::Foo::ExtensionFor::Bar;

use strict;
use warnings;
use Moose::Role;

around bar => sub {
    my ($super, $self) = @_;
    "foo'd bar CNS " . $super->($self);
};

1;
Commit	Line	Data
0a369903	1	package CustomNS::Plugin::Foo::ExtensionFor::Bar;
	2
	3	use strict;
	4	use warnings;
	5	use Moose::Role;
	6
	7	around bar => sub {
	8	my ($super, $self) = @_;
	9	"foo'd bar CNS " . $super->($self);
	10	};
	11
	12	1;