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

package TestApp::Plugin::Bor::ExtensionFor::Foo;

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

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

1;
Commit	Line	Data
421e9f8d	1	package TestApp::Plugin::Bor::ExtensionFor::Foo;
	2
	3	use strict;
	4	use warnings;
	5	use Moose::Role;
	6
	7	around foo => sub{
	8	my $super = shift;
	9	my $self = shift;
	10	"bor'd foo " . $super->($self);
	11	};
	12
	13	1;