X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FTest.pm;h=e121b350293bc707ce6d05d9b2f15e389158828b;hp=53c16a203e9265e4ff65d427d799f2afe026c6df;hb=cea573d8055680f12b061aa8adcf0b54f576bb7b;hpb=d0cacee71a316290bc01f0e12681c16bdc1e84e2 diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm index 53c16a2..e121b35 100644 --- a/lib/Catalyst/Test.pm +++ b/lib/Catalyst/Test.pm @@ -7,8 +7,9 @@ use Test::More (); use Plack::Test; use Catalyst::Exception; use Catalyst::Utils; -use Class::MOP; +use Class::Load qw(load_class is_class_loaded); use Sub::Exporter; +use Moose::Util 'find_meta'; use Carp 'croak', 'carp'; sub _build_request_export { @@ -25,7 +26,7 @@ sub _build_request_export { return sub { croak "Must specify a test app: use Catalyst::Test 'TestApp'" } unless $class; - Class::MOP::load_class($class) unless Class::MOP::is_class_loaded($class); + load_class($class) unless is_class_loaded($class); $class->import; return sub { _local_request( $class, @_ ) }; @@ -58,7 +59,7 @@ sub _build_ctx_request_export { # hook into 'dispatch' -- the function gets called after all plugins # have done their work, and it's an easy place to capture $c. - my $meta = Class::MOP::get_metaclass_by_name($class); + my $meta = find_meta($class); $meta->make_mutable; $meta->add_after_method_modifier( "dispatch", sub { $ctx_closed_over = shift;