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

package TestApp::Plugin::Foo::ExtensionFor::Bar;

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

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

1;
Commit	Line	Data
421e9f8d	1	package TestApp::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 " . $super->($self);
	10	};
	11
	12	1;