Trim down any times >= 10 to avoid ugly Text::Simple line wrapping.

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Test.pm

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index 012c399..3ff6b43 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -4,21 +4,9 @@ use Test::More;
 
 use Catalyst::Exception;
 use Catalyst::Utils;
-use Class::Inspector;
+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) = @_;
 
@@ -30,8 +18,8 @@ sub build_exports {
     } elsif (! $class) {
         $request = sub { Catalyst::Exception->throw("Must specify a test app: use Catalyst::Test 'TestApp'") };
     } else {
-        unless( Class::Inspector->loaded( $class ) ) {
-            require Class::Inspector->filename( $class );
+        unless (Class::MOP::is_class_loaded($class)) {
+            Class::MOP::load_class($class);
         }
         $class->import;
 
@@ -67,6 +55,20 @@ sub build_exports {
     };
 }
 
+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