t/lib/SubExporterCompatibility.pm

   1 package SubExporterCompatibility; {
   2
   3     use MooseX::Types::Moose qw(Str);
   4     use MooseX::Types -declare => [qw(MyStr)];
   5     use Sub::Exporter -setup => { exports => [ qw(something MyStr) ] };
   6
   7     subtype MyStr,
   8      as Str;
   9
  10     sub something {
  11         return 1;
  12     }
  13
  14 } 1;