A little POD

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Container.pm

diff --git a/lib/Catalyst/Container.pm b/lib/Catalyst/Container.pm
index d2f0800..ba71092 100644 (file)
--- a/lib/Catalyst/Container.pm
+++ b/lib/Catalyst/Container.pm
@@ -46,6 +46,14 @@ has sub_container_class => (
     default => 'Bread::Board::Container',
 );
 
+=head1 NAME
+
+Catalyst::Container - IOC for Catalyst components
+
+=head1 METHODS
+
+=cut
+
 sub BUILD {
     my $self = shift;
 
@@ -74,48 +82,80 @@ sub BUILD {
     ) for qw/ model view controller /;
 }
 
+=head2 build_model_subcontainer
+
+=cut
+
 sub build_model_subcontainer {
     my $self = shift;
 
     return $self->sub_container_class->new( name => 'model' );
 }
 
+=head2 build_view_subcontainer
+
+=cut
+
 sub build_view_subcontainer {
     my $self = shift;
 
     return $self->sub_container_class->new( name => 'view' );
 }
 
+=head2 build_controller_subcontainer
+
+=cut
+
 sub build_controller_subcontainer {
     my $self = shift;
 
     return $self->sub_container_class->new( name => 'controller' );
 }
 
+=head2 build_name_service
+
+=cut
+
 sub build_name_service {
     my $self = shift;
 
     return Bread::Board::Literal->new( name => 'name', value => $self->name );
 }
 
+=head2 build_driver_service
+
+=cut
+
 sub build_driver_service {
     my $self = shift;
 
     return Bread::Board::Literal->new( name => 'driver', value => $self->driver );
 }
 
+=head2 build_file_service
+
+=cut
+
 sub build_file_service {
     my $self = shift;
 
     return Bread::Board::Literal->new( name => 'file', value => $self->file );
 }
 
+=head2 build_substitutions_service
+
+=cut
+
 sub build_substitutions_service {
     my $self = shift;
 
     return Bread::Board::Literal->new( name => 'substitutions', value => $self->substitutions );
 }
 
+=head2 build_extensions_service
+
+=cut
+
 sub build_extensions_service {
     my $self = shift;
 
@@ -127,6 +167,10 @@ sub build_extensions_service {
     );
 }
 
+=head2 build_prefix_service
+
+=cut
+
 sub build_prefix_service {
     my $self = shift;
 
@@ -139,6 +183,10 @@ sub build_prefix_service {
     );
 }
 
+=head2 build_path_service
+
+=cut
+
 sub build_path_service {
     my $self = shift;
 
@@ -155,6 +203,10 @@ sub build_path_service {
     );
 }
 
+=head2 build_config_service
+
+=cut
+
 sub build_config_service {
     my $self = shift;
 
@@ -176,6 +228,10 @@ sub build_config_service {
     );
 }
 
+=head2 build_raw_config_service
+
+=cut
+
 sub build_raw_config_service {
     my $self = shift;
 
@@ -199,6 +255,10 @@ sub build_raw_config_service {
     );
 }
 
+=head2 build_global_files_service
+
+=cut
+
 sub build_global_files_service {
     my $self = shift;
 
@@ -224,6 +284,10 @@ sub build_global_files_service {
     );
 }
 
+=head2 build_local_files_service
+
+=cut
+
 sub build_local_files_service {
     my $self = shift;
 
@@ -251,6 +315,10 @@ sub build_local_files_service {
     );
 }
 
+=head2 build_global_config_service
+
+=cut
+
 sub build_global_config_service {
     my $self = shift;
 
@@ -270,6 +338,10 @@ sub build_global_config_service {
     );
 }
 
+=head2 build_local_config_service
+
+=cut
+
 sub build_local_config_service {
     my $self = shift;
 
@@ -289,6 +361,10 @@ sub build_local_config_service {
     );
 }
 
+=head2 build_config_path_service
+
+=cut
+
 sub build_config_path_service {
     my $self = shift;
 
@@ -313,6 +389,10 @@ sub build_config_path_service {
     );
 }
 
+=head2 build_config_local_suffix_service
+
+=cut
+
 sub build_config_local_suffix_service {
     my $self = shift;
 
@@ -328,6 +408,10 @@ sub build_config_local_suffix_service {
     );
 }
 
+=head2 _fix_syntax
+
+=cut
+
 sub _fix_syntax {
     my $config     = shift;
     my @components = (
@@ -347,6 +431,10 @@ sub _fix_syntax {
     }
 }
 
+=head2 _config_substitutions
+
+=cut
+
 sub _config_substitutions {
     my ( $self, $name, $subs, $arg ) = @_;
 
@@ -370,9 +458,32 @@ sub _config_substitutions {
     return $arg;
 }
 
+=head2 get_component
+
+=cut
+
 sub get_component {
     my ( $self, $type, $name, $args ) = @_;
     return $self->get_sub_container($type)->resolve( service => $name, parameters => { context => $args } );
 }
 
+=head1 AUTHORS
+
+=over 4
+
+=item Justin Hunter (arcanez)
+
+=item André Walker (andrewalker)
+
+=back
+
+Based on L<Catalyst::Plugin::ConfigLoader>, by Brian Cassidy.
+
+=head1 LICENSE
+
+This library is free software. You can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
+
 1;