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=3de24ad53cb2d8b9449ba91adfab3552c029a1e1;hp=b0776e49483945ee6830977661c3d40c05ecd7ab;hb=66d9e175a28989d4454714edf2cc2dab5ad64d96;hpb=45374ac6977e9464410a8c7518fb26ab812258cb diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm index b0776e4..3de24ad 100644 --- a/lib/Catalyst/Test.pm +++ b/lib/Catalyst/Test.pm @@ -41,7 +41,6 @@ Catalyst::Test - Test Catalyst applications ok( get('/foo') =~ /bar/ ); - =head1 DESCRIPTION Test Catalyst applications. @@ -63,7 +62,7 @@ Returns a C object. =cut sub import { - my $self = shift; + my $self = shift; my $class = shift; my ( $get, $request ); @@ -98,7 +97,8 @@ sub remote_request { unless ( ref $request ) { - my $uri = ( $request =~ m/http/i ) + my $uri = + ( $request =~ m/http/i ) ? URI->new($request) : URI->new( 'http://localhost' . $request );