view release on metacpan or  search on metacpan

inc/Catalyst.pm  view on Meta::CPAN

1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
            $class->locate_components($config);
my %comps = map { $_ => 1 } @comps;
 
my $deprecatedcatalyst_component_names = grep { /::[CMV]::/ } @comps;
$class->log->warn(qq{Your application is using the deprecated ::[MVC]:: type naming scheme.\n}.
    qq{Please switch your class names to ::Model::, ::View:: and ::Controller: as appropriate.\n}
) if $deprecatedcatalyst_component_names;
 
for my $component ( @comps ) {
 
    # We pass ignore_loaded here so that overlay files for (e.g.)
    # Model::DBI::Schema sub-classes are loaded - if it's in @comps
    # we know M::P::O found a file on disk so this is safe
 
    Catalyst::Utils::ensure_class_loaded( $component, { ignore_loaded => 1 } );
 
    # Needs to be done as soon as the component is loaded, as loading a sub-component
    # (next time round the loop) can cause us to get the wrong metaclass..
    $class->_controller_init_base_classes($component);
}