X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FTest.pm;h=23d4f40f31fe785fff11bc29958f48057d694f9b;hb=9dad4705cff1744cea885e0b5c6c3f3cfa8890de;hp=a9f74e5512112b4f78a1d6d2bde805a6f20c1f93;hpb=d837e1a7eadff19ff04373ad19d22fa293e19db5;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm index a9f74e5..23d4f40 100644 --- a/lib/Catalyst/Test.pm +++ b/lib/Catalyst/Test.pm @@ -2,6 +2,7 @@ package Catalyst::Test; use strict; +use Catalyst::Exception; use Catalyst::Utils; use UNIVERSAL::require; @@ -78,8 +79,15 @@ sub import { else { $class->require; - my $error = $UNIVERSAL::require::ERROR; - die qq/Couldn't load "$class", "$error"/ if $@; + + if ( $@ ) { + + my $error = $UNIVERSAL::require::ERROR; + + Catalyst::Exception->throw( + message => qq/Couldn't load "$class", "$error"/ + ); + } $class->import; @@ -97,7 +105,7 @@ my $agent; =item remote_request -Do an actual remote rquest using LWP. +Do an actual remote request using LWP. =cut