4 use warnings FATAL => 'all';
15 use Function::Parameters qw(:strict);
17 method new ($class:) { bless {}, $class; }
19 # not using a type here, so we won't expect Moose *or* Mouse to get loaded
20 method foo1 ($bar) {};
23 my $foobar = Foo::Bar->new;
25 # at this point, neither Mouse nor Moose should be loaded
27 is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
28 is $INC{'Moose/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
33 # _still_ should have no Moose and no Mouse, because we haven't requested any type checking
35 is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
36 is $INC{'Moose/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';