[Catalyst-commits] r13480 - Catalyst-Runtime/5.80/branches/gsoc_breadboard/lib

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2010-08-06 19:38:47 +0100 (Fri, 06 Aug 2010)
New Revision: 13480

Modified:
   Catalyst-Runtime/5.80/branches/gsoc_breadboard/lib/Catalyst.pm
Log:
expand M/V/C to Model/View/Controller for sub-container resolution

Modified: Catalyst-Runtime/5.80/branches/gsoc_breadboard/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/gsoc_breadboard/lib/Catalyst.pm	2010-08-06 11:52:48 UTC (rev 13479)
+++ Catalyst-Runtime/5.80/branches/gsoc_breadboard/lib/Catalyst.pm	2010-08-06 18:38:47 UTC (rev 13480)
@@ -2460,6 +2460,11 @@
     for my $component (@comps) {
         my $instance = $class->components->{ $component } = $class->setup_component($component);
         my $type = lc((split /::/, $component)[1]);
+        if ($deprecatedcatalyst_component_names) {
+            $type = 'controller' if $type eq 'c';
+            $type = 'model' if $type eq 'm';
+            $type = 'view' if $type eq 'v';
+        }
         $containers->{$type}->add_service(Bread::Board::BlockInjection->new( name => $component, block => sub { return $instance } ));
         my @expanded_components = $instance->can('expand_modules')
             ? $instance->expand_modules( $component, $config )