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

package TestApp2::Plugin::Foo::ExtensionFor::Bar;

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

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

1;
Commit	Line	Data
208f7b27	1	package TestApp2::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 2 " . $super->($self);
	10	};
	11
	12	1;