[Catalyst-commits] r8555 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Fri Oct 17 05:23:05 BST 2008


Author: rafl
Date: 2008-10-17 05:23:04 +0100 (Fri, 17 Oct 2008)
New Revision: 8555

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm
Log:
Remove the exports builder from the Catalyst::Test namespace.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm	2008-10-17 04:22:59 UTC (rev 8554)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm	2008-10-17 04:23:04 UTC (rev 8555)
@@ -7,18 +7,6 @@
 use Class::MOP;
 use Sub::Exporter;
 
-{
-    my $import = Sub::Exporter::build_exporter({
-        groups => [ all => \&build_exports ],
-        into_level => 1,
-    });
-
-    sub import {
-        my ($self, $class) = @_;
-        $import->($self, '-all' => { class => $class });
-    }
-}
-
 sub build_exports {
     my ($self, $meth, $args, $defaults) = @_;
 
@@ -67,6 +55,20 @@
     };
 }
 
+use namespace::clean;
+
+{
+    my $import = Sub::Exporter::build_exporter({
+        groups => [ all => \&build_exports ],
+        into_level => 1,
+    });
+
+    sub import {
+        my ($self, $class) = @_;
+        $import->($self, '-all' => { class => $class });
+    }
+}
+
 =head1 NAME
 
 Catalyst::Test - Test Catalyst Applications




More information about the Catalyst-commits mailing list