package SubExporterCompatibility; {
-
+
use MooseX::Types::Moose qw(Str);
use MooseX::Types -declare => [qw(MyStr)];
use Sub::Exporter -setup => { exports => [ qw(something MyStr) ] };
-
+
subtype MyStr,
as Str;
-
+
sub something {
return 1;
- }
-
+ }
+
} 1;