Fixed dispatcher, so $c->req->action(undef) works again

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Request.pm

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index b8caa11..c0cc729 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -6,7 +6,7 @@ use base 'Class::Accessor::Fast';
 use IO::Socket qw[AF_INET inet_aton];
 
 __PACKAGE__->mk_accessors(
-    qw/action address arguments cookies headers match method
+    qw/address arguments cookies headers match method
       protocol query_parameters secure snippets uri user/
 );
 
@@ -81,6 +81,10 @@ thus hiding the details of the particular engine implementation.
 
 Returns the requested action as a L<Catalyst::Action> object.
 
+=cut
+
+sub action { shift->{_context}->action(@_) }
+
 =item $req->address
 
 Returns the IP address of the client.