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