\r
_fix_syntax( $config );\r
\r
- # merge hashes 1 level down\r
- for my $key ( keys %$config ) {\r
- if( exists $c->config->{ $key } ) {\r
- my $isa_ref = ref $config->{ $key };\r
-\r
- next if !$isa_ref or $isa_ref ne 'HASH';\r
-\r
- my %temp = ( %{ $c->config->{ $key } }, %{ $config->{ $key } } );\r
- $config->{ $key } = \%temp;\r
- }\r
- }\r
- \r
$c->config( $config );\r
}\r
}\r
grep {\r
ref $config->{ lc $_ } || ref $config->{ $_ }\r
}\r
- qw( Component Model View Controller )\r
+ qw( Component Model M View V Controller C )\r
);\r
\r
foreach my $comp ( @components ) {\r