tabs => spaces

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

diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm
index 20741bb..4becc00 100644 (file)
--- a/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@ -18,8 +18,8 @@ Catalyst::Controller - Catalyst Controller base class
   use base qw/Catalyst::Controller;
 
   sub foo : Local { 
-       my ($self,$c,@args) = @_;
-       ... 
+    my ($self,$c,@args) = @_;
+    ... 
   } # Dispatches to /search/foo
 
 =head1 DESCRIPTION
@@ -283,7 +283,14 @@ sub _parse_ActionClass_attr {
     return ( 'ActionClass', $value );
 }
 
+sub _parse_MyAction_attr {
+    my ( $self, $c, $name, $value ) = @_;
+
+    my $appclass = Catalyst::Utils::class2appclass($self);
+    $value = "${appclass}::Action::${value}";
 
+    return ( 'ActionClass', $value );
+}
 
 1;