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

package TestApp::Plugin::Baz::ExtensionFor::Bar;

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

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

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