projects
/
gitmo/MooseX-Object-Pluggable.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
15f3379291828f9329971ef6421a617eebfa4543
[gitmo/MooseX-Object-Pluggable.git]
/
t
/
lib
/
TestApp
/
Plugin
/
Bor
/
ExtensionFor
/
Foo.pm
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;