irc is bad for productivity

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

diff --git a/t/lib/TestApp2/Plugin/Foo/ExtensionFor/Bar.pm b/t/lib/TestApp2/Plugin/Foo/ExtensionFor/Bar.pm
new file mode 100644 (file)
index 0000000..ad67d21
--- /dev/null
+++ b/t/lib/TestApp2/Plugin/Foo/ExtensionFor/Bar.pm
@@ -0,0 +1,12 @@
+package TestApp2::Plugin::Foo::ExtensionFor::Bar;
+
+use strict;
+use warnings;
+use Moose::Role;
+
+around bar => sub {
+    my ($super, $self) = @_;
+    "foo'd bar 2 " . $super->($self);
+};
+
+1;