[Catalyst-commits] r13990 - in trunk/Catalyst-Plugin-SubRequest: . lib/Catalyst/Plugin

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2011-03-22 09:05:28 +0000 (Tue, 22 Mar 2011)
New Revision: 13990

Modified:
   trunk/Catalyst-Plugin-SubRequest/Changes
   trunk/Catalyst-Plugin-SubRequest/README
   trunk/Catalyst-Plugin-SubRequest/lib/Catalyst/Plugin/SubRequest.pm
Log:
Version 0.17

Modified: trunk/Catalyst-Plugin-SubRequest/Changes
===================================================================
--- trunk/Catalyst-Plugin-SubRequest/Changes	2011-03-22 08:42:02 UTC (rev 13989)
+++ trunk/Catalyst-Plugin-SubRequest/Changes	2011-03-22 09:05:28 UTC (rev 13990)
@@ -1,6 +1,9 @@
 Revision history for Perl extension Catalyst::Plugin::SubRequest
 
-        - Added subrequest and subrequest_response names aliased to sub_request and sub_request_response methods
+0.17  2011-03-22 09:08:00 GMT
+        - Added subrequest and subrequest_response names aliased to 
+          sub_request and sub_request_response methods
+        - Fix RT#66126 debug mode path display bug.
 
 0.16  2010-01-28 21:09:04 GMT
         - Add subreq_res to get the full Catalyst::Response back

Modified: trunk/Catalyst-Plugin-SubRequest/README
===================================================================
--- trunk/Catalyst-Plugin-SubRequest/README	2011-03-22 08:42:02 UTC (rev 13989)
+++ trunk/Catalyst-Plugin-SubRequest/README	2011-03-22 09:05:28 UTC (rev 13990)
@@ -4,24 +4,53 @@
 SYNOPSIS
         use Catalyst 'SubRequest';
 
-        $c->subreq('/test/foo/bar', { template => 'magic.tt' });
+        my $res_body = $c->subreq('/test/foo/bar', { template => 'magic.tt' });
 
-        $c->subreq(        {       path            => '/test/foo/bar',
-                           body            => $body        },
-                   {       template        => 'magic.tt'           });
+        my $res_body = $c->subreq( {
+           path            => '/test/foo/bar',
+           body            => $body
+        }, {
+           template        => 'magic.tt'
+        });
 
+        # Get the full response object
+        my $res = $c->subreq_res('/test/foo/bar', {
+            template => 'mailz.tt'
+        }, {
+            param1   => 23
+        });
+        $c->log->warn( $res->content_type );
+
 DESCRIPTION
     Make subrequests to actions in Catalyst. Uses the catalyst dispatcher,
-    so it will work like an external url call.
+    so it will work like an external url call. Methods are provided both to
+    get the body of the response and the full response (Catalyst::Response)
+    object.
 
 METHODS
     subreq [path as string or hash ref], [stash as hash ref], [parameters as
     hash ref]
+    subrequest
     sub_request
-        Takes a full path to a path you'd like to dispatch to. If the path
-        is passed as a hash ref then it can include body, action, match and
-        path. Any additional parameters are put into the stash.
+        Takes a full path to a path you'd like to dispatch to.
 
+        If the path is passed as a hash ref then it can include body,
+        action, match and path.
+
+        An optional second argument as hashref can contain data to put into
+        the stash of the subrequest.
+
+        An optional third argument as hashref can contain data to pass as
+        parameters to the subrequest.
+
+        Returns the body of the response.
+
+    subreq_res [path as string or hash ref], [stash as hash ref],
+    [parameters as hash ref]
+    subrequest_response
+    sub_request_response
+        Like "sub_request()", but returns a full Catalyst::Response object.
+
 SEE ALSO
     Catalyst.
 
@@ -34,7 +63,7 @@
     SRI, for writing the awesome Catalyst framework
 
 COPYRIGHT
-    Copyright (c) 2005 - 2008 the Catalyst::Plugin::SubRequest "AUTHORS" as
+    Copyright (c) 2005 - 2011 the Catalyst::Plugin::SubRequest "AUTHORS" as
     listed above.
 
 LICENSE

Modified: trunk/Catalyst-Plugin-SubRequest/lib/Catalyst/Plugin/SubRequest.pm
===================================================================
--- trunk/Catalyst-Plugin-SubRequest/lib/Catalyst/Plugin/SubRequest.pm	2011-03-22 08:42:02 UTC (rev 13989)
+++ trunk/Catalyst-Plugin-SubRequest/lib/Catalyst/Plugin/SubRequest.pm	2011-03-22 09:05:28 UTC (rev 13990)
@@ -4,7 +4,7 @@
 use warnings;
 use Time::HiRes qw/tv_interval/;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 =head1 NAME
 
@@ -98,6 +98,7 @@
 
     if (ref $path eq 'HASH') {
         @request_mods{keys %$path} = values %$path;
+        $path = $path->{path};
     } else {
         $request_mods{path} = $path;
     }
@@ -151,7 +152,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (c) 2005 - 2008
+Copyright (c) 2005 - 2011
 the Catalyst::Plugin::SubRequest L</AUTHORS>
 as listed above.