- Punted get_action to ActionContainer

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

diff --git a/lib/Catalyst/ActionContainer.pm b/lib/Catalyst/ActionContainer.pm
index eb6bb74..14a2fcc 100644 (file)
--- a/lib/Catalyst/ActionContainer.pm
+++ b/lib/Catalyst/ActionContainer.pm
@@ -14,7 +14,7 @@ use overload (
 
 =head1 NAME
 
-Catalyst::Action - Catalyst Action
+Catalyst::ActionContainer - Catalyst Action Container
 
 =head1 SYNOPSIS
 
@@ -26,19 +26,20 @@ See L<Catalyst>.
 
 =over 4
 
-=item part
-
-=item actions
-
-=item new
+=item get_action
 
 =cut
 
-sub new {        # Dumbass constructor
-    my ( $class, $attrs ) = @_;
-    return bless { %{ $attrs || {} } }, $class;
+sub get_action {
+    my ( $self, $c, $name ) = @_;
+    return $self->actions->{$name} if defined $self->actions->{$name};
+    return;
 }
 
+=item actions
+
+=item part
+
 =back
 
 =head1 AUTHOR