From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 25 Jun 2006 18:23:57 +0000 (+0000)
Subject: fixup coverage on all but C::Dispatcher
X-Git-Tag: 5.7099_04~463
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=d4c74714e871e16564d5294abdefccd0d0bcd29f

fixup coverage on all but C::Dispatcher
---

diff --git a/lib/Catalyst/ActionContainer.pm b/lib/Catalyst/ActionContainer.pm
index 570a0cd..258cb15 100644
--- a/lib/Catalyst/ActionContainer.pm
+++ b/lib/Catalyst/ActionContainer.pm
@@ -35,6 +35,12 @@ to represent the various dispatch points in your application.
 
 =head1 METHODS
 
+=head2 new(\%data | $part)
+
+Can be called with { part => $part, actions => \%actions } for full
+construction or with just a part, which will result in an empty actions
+hashref to be populated via add_action later
+
 =head2 get_action($name)
 
 Returns an action from this container based on the action name, or undef
diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm
index 65f3120..863e688 100644
--- a/lib/Catalyst/Base.pm
+++ b/lib/Catalyst/Base.pm
@@ -85,6 +85,11 @@ dispatch of actions for controllers.
 
 =head1 METHODS
 
+=head2 $class->new($app, @args)
+
+Proxies through to NEXT::new and stashes the application instance as
+$self->{application}.
+
 =head2 $self->action_for('name')
 
 Returns the Catalyst::Action object (if any) for a given method name in
@@ -138,7 +143,9 @@ sub path_prefix {
 
 =head2 $self->register_actions($c)
 
-register all actions for this component based on a given context.
+Finds all applicable actions for this component, creates Catalyst::Action
+objects (using $self->create_action) for them and registers them with
+$c->dispatcher.
 
 =cut
 
@@ -186,6 +193,15 @@ sub register_actions {
     }
 }
 
+=head2 $self->create_action(%args)
+
+Called with a hash of data to be use for construction of a new Catalyst::Action
+(or appropriate sub/alternative class) object.
+
+Primarily designed for the use of register_actions.
+
+=cut
+
 sub create_action {
     my $self = shift;
     my %args = @_;