Commit | Line | Data |
6974ed90 |
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) ] }; |
6 | |
7 | subtype MyStr, |
8 | as Str; |
9 | |
10 | sub something { |
11 | return 1; |
12 | } |
13 | |
14 | } 1; |