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

package TestApp::Plugin::Foo::ExtensionFor::Baz;

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

around baz => sub{ 
    my $super = shift;
    my $self = shift;
    "foo'd baz  " . $super->($self);
};

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