X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F055-exporter.t;h=1207c42e5e1f8e22b4c0f932a0aa9be14f44decd;hb=e57a5068a04271a23b54f834ddec60e82b76275e;hp=7f945c64dbdeb37efd9b350bf980e6b8912425cc;hpb=920139b3efca66d2caeeef306c97fa0da62c6b73;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/055-exporter.t b/t/001_mouse/055-exporter.t
index 7f945c6..1207c42 100644
--- a/t/001_mouse/055-exporter.t
+++ b/t/001_mouse/055-exporter.t
@@ -1,81 +1,81 @@
-#!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";
-#}
-
+#!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";
+#}
+