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=023b8e51c1f7ec58b0f97131ead9c5687e68862a;hp=8157bf32f6ba307120fab1140552f0be29d052ab;hb=74dafab798a163c251e09de7fcc21a267d1678a6;hpb=21465c884872c1ec8c30acd72796445f9eaacb31 diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm index 8157bf3..023b8e5 100644 --- a/lib/Catalyst/Test.pm +++ b/lib/Catalyst/Test.pm @@ -79,16 +79,6 @@ sub import { else { $class->require; - - if ( $@ ) { - - my $error = $UNIVERSAL::require::ERROR; - - Catalyst::Exception->throw( - message => qq/Couldn't load "$class", "$error"/ - ); - } - $class->import; $request = sub { $class->run(@_) }; @@ -111,11 +101,11 @@ Do an actual remote request using LWP. sub remote_request { - require LWP::UserAgent; - + require LWP::UserAgent; + my $request = Catalyst::Utils::request( shift(@_) ); - my $server = URI->new( $ENV{CATALYST_SERVER} ); + my $server = URI->new( $ENV{CATALYST_SERVER} ); if ( $server->path =~ m|^(.+)?/$| ) { $server->path("$1"); # need to be quoted @@ -126,7 +116,7 @@ sub remote_request { $request->uri->port( $server->port ); $request->uri->path( $server->path . $request->uri->path ); - unless ( $agent ) { + unless ($agent) { $agent = LWP::UserAgent->new( keep_alive => 1,