t/lib/BaseClass.pm

   1 package BaseClass;
   2 use Mouse;
   3
   4 sub import {
   5     my $pkg = caller(0);
   6     Mouse->import({into_level => 1});
   7     $pkg->meta->add_method('foo' => sub {'bar'});
   8 }
   9
  10 1;