-#!perl\r
-use strict;\r
-use warnings;\r
-use Test::More tests => 14;\r
-\r
-use Mouse ();\r
-\r
-BEGIN{\r
- package MyMouse;\r
- use Mouse;\r
- Mouse::Exporter->setup_import_methods(\r
- as_is => [qw(foo)],\r
- also => [qw(Mouse)],\r
- );\r
-\r
- sub foo{ 100 }\r
-\r
- $INC{'MyMouse.pm'}++;\r
-\r
- package MyMouseEx;\r
- use Mouse;\r
- Mouse::Exporter->setup_import_methods(\r
- as_is => [\&bar],\r
- also => [qw(MyMouse)],\r
-\r
-# groups => {\r
-# foobar_only => [qw(foo bar)],\r
-# },\r
- );\r
-\r
- sub bar{ 200 }\r
-\r
- $INC{'MyMouseEx.pm'}++;\r
-}\r
-\r
-can_ok 'MyMouse', qw(import unimport);\r
-can_ok 'MyMouseEx', qw(import unimport);\r
-\r
-{\r
- package MyApp;\r
- use Test::More;\r
- use MyMouse;\r
-\r
- can_ok __PACKAGE__, 'meta';\r
- ok defined(&foo), 'foo is imported';\r
- ok defined(&has), 'has is also imported';\r
-\r
- no MyMouse;\r
-\r
- ok !defined(&foo), 'foo is unimported';\r
- ok !defined(&has), 'has is also unimported';\r
-}\r
-{\r
- package MyAppEx;\r
- use Test::More;\r
- use MyMouseEx;\r
-\r
- can_ok __PACKAGE__, 'meta';\r
- ok defined(&foo), 'foo is imported';\r
- ok defined(&bar), 'foo is also imported';\r
- ok defined(&has), 'has is also imported';\r
-\r
- no MyMouseEx;\r
-\r
- ok !defined(&foo), 'foo is unimported';\r
- ok !defined(&bar), 'foo is also unimported';\r
- ok !defined(&has), 'has is also unimported';\r
-}\r
-\r
-# exporting groups are not implemented in Moose::Exporter\r
-#{\r
-# package MyAppExTags;\r
-# use Test::More;\r
-# use MyMouseEx qw(:foobar_only);\r
-#\r
-# can_ok __PACKAGE__, 'meta';\r
-# ok defined(&foo);\r
-# ok defined(&bar);\r
-# ok!defined(&has), "export tags";\r
-#}\r
-\r
+#!perl
+use strict;
+use warnings;
+use Test::More tests => 14;
+
+use Mouse ();
+
+BEGIN{
+ package MyMouse;
+ use Mouse;
+ Mouse::Exporter->setup_import_methods(
+ as_is => [qw(foo)],
+ also => [qw(Mouse)],
+ );
+
+ sub foo{ 100 }
+
+ $INC{'MyMouse.pm'}++;
+
+ package MyMouseEx;
+ use Mouse;
+ Mouse::Exporter->setup_import_methods(
+ as_is => [\&bar],
+ also => [qw(MyMouse)],
+
+# groups => {
+# foobar_only => [qw(foo bar)],
+# },
+ );
+
+ sub bar{ 200 }
+
+ $INC{'MyMouseEx.pm'}++;
+}
+
+can_ok 'MyMouse', qw(import unimport);
+can_ok 'MyMouseEx', qw(import unimport);
+
+{
+ package MyApp;
+ use Test::More;
+ use MyMouse;
+
+ can_ok __PACKAGE__, 'meta';
+ ok defined(&foo), 'foo is imported';
+ ok defined(&has), 'has is also imported';
+
+ no MyMouse;
+
+ ok !defined(&foo), 'foo is unimported';
+ ok !defined(&has), 'has is also unimported';
+}
+{
+ package MyAppEx;
+ use Test::More;
+ use MyMouseEx;
+
+ can_ok __PACKAGE__, 'meta';
+ ok defined(&foo), 'foo is imported';
+ ok defined(&bar), 'foo is also imported';
+ ok defined(&has), 'has is also imported';
+
+ no MyMouseEx;
+
+ ok !defined(&foo), 'foo is unimported';
+ ok !defined(&bar), 'foo is also unimported';
+ ok !defined(&has), 'has is also unimported';
+}
+
+# exporting groups are not implemented in Moose::Exporter
+#{
+# package MyAppExTags;
+# use Test::More;
+# use MyMouseEx qw(:foobar_only);
+#
+# can_ok __PACKAGE__, 'meta';
+# ok defined(&foo);
+# ok defined(&bar);
+# ok!defined(&has), "export tags";
+#}
+