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

   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;