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
=head1 AUTHORS
-=over 4
-
-=item Justin Hunter (arcanez)
-
-=item André Walker (andrewalker)
-
-=back
-
-Based on L<Catalyst::Plugin::ConfigLoader>, by Brian Cassidy.
+Catalyst Contributors, see Catalyst.pm
-=head1 LICENSE
+=head1 COPYRIGHT
This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.