A little POD

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 12520e0..94a4d5e 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2416,7 +2416,7 @@ sub setup_config {
     $class->finalize_config; # back-compat
 }
 
-=head $c->finalize_config
+=head2 $c->finalize_config
 
 =cut
 

diff --git a/lib/Catalyst/BlockInjection.pm b/lib/Catalyst/BlockInjection.pm
index b3177f8..17a77fe 100644 (file)
--- a/lib/Catalyst/BlockInjection.pm
+++ b/lib/Catalyst/BlockInjection.pm
@@ -9,3 +9,22 @@ __PACKAGE__->meta->make_immutable;
 
 no Moose;
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Catalyst::BlockInjection
+
+=head1 AUTHOR
+
+André Walker
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut

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;

diff --git a/lib/Catalyst/Service/WithContext.pm b/lib/Catalyst/Service/WithContext.pm
index cd560c7..6225cc5 100644 (file)
--- a/lib/Catalyst/Service/WithContext.pm
+++ b/lib/Catalyst/Service/WithContext.pm
@@ -28,3 +28,34 @@ around 'get' => sub {
 
 no Moose::Role;
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Catalyst::Service::WithContext
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=over 4
+
+=item B<accept_context_sub>
+
+=item B<get>
+
+=back
+
+=head1 AUTHOR
+
+André Walker
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut