[Catalyst-commits] r8274 - Catalyst-Runtime/5.70/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-08-24 20:32:08 +0100 (Sun, 24 Aug 2008)
New Revision: 8274

Modified:
   Catalyst-Runtime/5.70/trunk/lib/Catalyst/Controller.pm
Log:
Implement :ChainedParent.

Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst/Controller.pm	2008-08-24 19:32:00 UTC (rev 8273)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst/Controller.pm	2008-08-24 19:32:08 UTC (rev 8274)
@@ -304,6 +304,11 @@
     return Chained => $value;
 }
 
+sub _parse_ChainedParent_attr {
+    my ($self, $c, $name, $value) = @_;
+    return $self->_parse_Chained_attr($c, $name, '../'.$name);
+}
+
 sub _parse_PathPrefix_attr {
     my $self = shift;
     return PathPart => $self->path_prefix;