6 use Test::More tests => 8;
9 # Some packages out in the wild cooperate with Mouse by using goto
10 # &Mouse::import. we want to make sure it still works.
25 goto &Mouse::unimport;
32 MouseAlike1->import();
34 ::lives_ok( sub { has( 'size', is => 'bare' ) },
35 'has was exported via MouseAlike1' );
37 MouseAlike1->unimport();
40 ok( ! Foo->can('has'),
41 'No has sub in Foo after MouseAlike1 is unimported' );
43 'Foo has a meta method' );
44 isa_ok( Foo->meta(), 'Mouse::Meta::Class' );
55 my $import = \&Mouse::import;
60 my $unimport = \&Mouse::unimport;
69 MouseAlike2->import();
71 ::lives_ok( sub { has( 'size', is => 'bare' ) },
72 'has was exported via MouseAlike2' );
74 MouseAlike2->unimport();
78 ok( ! Bar->can('has'),
79 'No has sub in Bar after MouseAlike2 is unimported' );
81 'Bar has a meta method' );
82 isa_ok( Bar->meta(), 'Mouse::Meta::Class' );