BEGIN {
- use strict;
- use warnings;
- use Test::More tests=>11;
+ use strict;
+ use warnings;
+ use Test::More tests=>11;
}
{
use MooseX::Types::Structured qw(Dict Tuple);
use MooseX::Types::Moose qw(Int Str Item);
use MooseX::Types -declare => [qw(
- MyDict1 MyDict2 MyDict4
+ MyDict1 MyDict2 MyDict4
)];
subtype MyDict1,
ok ( ! Item->is_subtype_of($any),
q[Item is NOT a subtype of $any]);
-
-__END__
-
-
-