require => 1;\r
use Data::Visitor::Callback;\r
\r
-our $VERSION = '0.08';\r
+our $VERSION = '0.09';\r
\r
=head1 NAME\r
\r
next unless -f $_;\r
my $config = $loader->load( $_ );\r
\r
- $c->debug( "Loaded Config $_" ) if $c->debug;\r
- _fix_syntax( $config );\r
- $c->config( $config ) if $config;\r
+ $c->log->debug( "Loaded Config $_" ) if $c->debug;\r
+ \r
+ next if !$config;\r
+\r
+ _fix_syntax( $config );\r
+ \r
+ $c->config( $config );\r
}\r
}\r
\r
map +{\r
prefix => $_ eq 'Component' ? '' : $_ . '::',\r
values => delete $config->{ lc $_ } || delete $config->{ $_ }\r
- }, qw( Component Model View Controller )\r
+ },\r
+ grep {\r
+ ref $config->{ lc $_ } || ref $config->{ $_ }\r
+ }\r
+ qw( Component Model M View V Controller C )\r
);\r
\r
foreach my $comp ( @components ) {\r