Replace CRLF to LF with all the files
[gitmo/Mouse.git] / t / 001_mouse / 055-exporter.t
index 7f945c6..1207c42 100644 (file)
@@ -1,81 +1,81 @@
-#!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";
+#}
+