MyAction attribute - thanks aherzog

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

diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm
index 20741bb..78a60a6 100644 (file)
--- a/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@ -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;