t/lib/TestApp/Plugin/Foo/ExtensionFor/Bar.pm

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