[Catalyst-commits] r10739 - in Catalyst-Runtime/5.80/trunk: lib/Catalyst t/lib/TestApp/Controller/Action

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2009-06-30 15:13:45 +0000 (Tue, 30 Jun 2009)
New Revision: 10739

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm
Log:
added test case + patch for inherited action configuration

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-06-30 08:17:53 UTC (rev 10738)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-06-30 15:13:45 UTC (rev 10739)
@@ -189,7 +189,7 @@
     push(
         @methods,
         map {
-            $meta->get_method($_)
+            $meta->find_method_by_name($_)
               || confess( 'Action "' 
                   . $_
                   . '" is not available from controller '

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm	2009-06-30 08:17:53 UTC (rev 10738)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm	2009-06-30 15:13:45 UTC (rev 10739)
@@ -70,5 +70,17 @@
     my ( $self, $c ) = @_;
 }
 
+package TestApp::Controller::Action::Inheritance::B;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+# check configuration for an inherited action
+__PACKAGE__->config(
+    action => {
+        begin => {}
+    }
+);
+
 1;