4 use Test::More tests => 14;
11 Mouse::Exporter->setup_import_methods(
22 Mouse::Exporter->setup_import_methods(
24 also => [qw(MyMouse)],
27 # foobar_only => [qw(foo bar)],
33 $INC{'MyMouseEx.pm'}++;
36 can_ok 'MyMouse', qw(import unimport);
37 can_ok 'MyMouseEx', qw(import unimport);
44 can_ok __PACKAGE__, 'meta';
45 ok defined(&foo), 'foo is imported';
46 ok defined(&has), 'has is also imported';
50 ok !defined(&foo), 'foo is unimported';
51 ok !defined(&has), 'has is also unimported';
58 can_ok __PACKAGE__, 'meta';
59 ok defined(&foo), 'foo is imported';
60 ok defined(&bar), 'foo is also imported';
61 ok defined(&has), 'has is also imported';
65 ok !defined(&foo), 'foo is unimported';
66 ok !defined(&bar), 'foo is also unimported';
67 ok !defined(&has), 'has is also unimported';
70 # exporting groups are not implemented in Moose::Exporter
72 # package MyAppExTags;
74 # use MyMouseEx qw(:foobar_only);
76 # can_ok __PACKAGE__, 'meta';
79 # ok!defined(&has), "export tags";