die qq/Couldn't load components "$error"/;
}
- $self->components( {} );
-
- for my $component ( $self->_components ) {
- $self->components->{$component} = $component;
- }
+ return $self->_components;
}
=item $c->run
sub setup {
my $self = shift;
- $self->retrieve_components;
$self->setup_components;
if ( $self->debug ) {
my $name = $self->config->{name} || 'Application';
sub setup_components {
my $self = shift;
+
+ $self->components( {} );
my @components;
- for my $component ( keys %{ $self->components } ) {
+ for my $component ( $self->retrieve_components ) {
unless ( UNIVERSAL::isa( $component, 'Catalyst::Base' ) ) {
+ $self->components->{$component} = $component;
next;
}