[Catalyst-commits] r14059 - in Test-WWW-Mechanize-Catalyst/trunk: . lib/Test/WWW/Mechanize

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2011-08-01 14:39:02 +0000 (Mon, 01 Aug 2011)
New Revision: 14059

Modified:
   Test-WWW-Mechanize-Catalyst/trunk/CHANGES
   Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
Log:
support changes in Catayst::Test introduced in Cataplack

Modified: Test-WWW-Mechanize-Catalyst/trunk/CHANGES
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/CHANGES	2011-08-01 14:18:40 UTC (rev 14058)
+++ Test-WWW-Mechanize-Catalyst/trunk/CHANGES	2011-08-01 14:39:02 UTC (rev 14059)
@@ -1,5 +1,9 @@
 Revision history for Perl module Test::WWW::Mechanize::Catalyst:
 
+0.54 Mon Aug 1 10:36 EDT 2011
+     - change to make sure we support changes in Catalyst::Test introduced
+       in the Cataplack port.
+
 0.53 Sun Dec 5 23:03 GMT 2010
      - Fix tests to work with the upcoming psgi based Catalyst release
        as $c->req->header('Host') now more accurately reflects what you

Modified: Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2011-08-01 14:18:40 UTC (rev 14058)
+++ Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2011-08-01 14:39:02 UTC (rev 14059)
@@ -12,7 +12,7 @@
 
 #use namespace::clean -execept => 'meta';
 
-our $VERSION = '0.53';
+our $VERSION = '0.54';
 our $APP_CLASS;
 my $Test = Test::Builder->new();
 
@@ -148,15 +148,19 @@
 
       $request->header('Host', $host);
     }
- 
+
     my $res = $self->_check_external_request($request);
     return $res if $res;
 
     my @creds = $self->get_basic_credentials( "Basic", $uri );
     $request->authorization_basic( @creds ) if @creds;
 
-    my $response =Catalyst::Test::local_request($self->{catalyst_app}, $request);
+    require Catalyst;
+    my $response = $Catalyst::VERSION >= 5.89000 ?
+      Catalyst::Test::_local_request($self->{catalyst_app}, $request) :
+        Catalyst::Test::local_request($self->{catalyst_app}, $request);
 
+
     # LWP would normally do this, but we dont get down that far.
     $response->request($request);