use Catalyst::Utils ();
use MooseX::Types::LoadableClass qw/ LoadableClass /;
use Catalyst::BlockInjection;
+use namespace::autoclean;
extends 'Bread::Board::Container';
+# FIXME - Why do any of these attributes need to be rw?
has config_local_suffix => (
is => 'rw',
isa => 'Str',
is => 'ro',
coerce => 1,
default => 'Catalyst::SubContainer',
+ handles => {
+ new_sub_container => 'new',
+ }
);
+# FIXME - Move all the Pod to the bottom!
+
=head1 NAME
Catalyst::Container - IOC for Catalyst components
sub build_model_subcontainer {
my $self = shift;
- return $self->sub_container_class->new( name => 'model' );
+ return $self->new_sub_container( name => 'model' );
}
=head2 build_view_subcontainer
sub build_view_subcontainer {
my $self = shift;
- return $self->sub_container_class->new( name => 'view' );
+ return $self->new_sub_container( name => 'view' );
}
=head2 build_controller_subcontainer
sub build_controller_subcontainer {
my $self = shift;
- return $self->sub_container_class->new( name => 'controller' );
+ return $self->new_sub_container( name => 'controller' );
}
=head2 build_name_service