X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;h=09f81a8f9f30d8dbf37e7093a77f4c9fc45733fe;hb=47b9d68e304e9cb305974bc15aa8e60f4bfb6c45;hp=8d187a0ac1f4d2c3dbd8520caa159d0a9cdb0820;hpb=fb0c5b21c3c972bc88b8c6c481f9937f31658a23;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index 8d187a0..09f81a8 100644 --- a/lib/Catalyst/Action.pm +++ b/lib/Catalyst/Action.pm @@ -88,6 +88,19 @@ sub compare { return $a1_args <=> $a2_args; } +sub number_of_args { + my ( $self ) = @_; + return 0 unless exists $self->attributes->{Args}; + return $self->attributes->{Args}[0]; +} + +sub number_of_captures { + my ( $self ) = @_; + + return 0 unless exists $self->attributes->{CaptureArgs}; + return $self->attributes->{CaptureArgs}[0] || 0; +} + __PACKAGE__->meta->make_immutable; 1; @@ -103,8 +116,8 @@ and so on. This determines how the action is dispatched to. =head2 class -Returns the class name of the component where this action is defined. -Derived by calling the L +Returns the name of the component where this action is defined. +Derived by calling the L method on each component. =head2 code @@ -113,7 +126,7 @@ Returns a code reference to this action. =head2 dispatch( $c ) -Dispatch this action against a context +Dispatch this action against a context. =head2 execute( $controller, $c, @args ) @@ -145,11 +158,19 @@ C of an action is always suitable for passing to C. =head2 name -returns the sub name of this action. +Returns the sub name of this action. + +=head2 number_of_args + +Returns the number of args this action expects. This is 0 if the action doesn't take any arguments and undef if it will take any number of arguments. + +=head2 number_of_captures + +Returns the number of captures this action expects for L actions. =head2 meta -Provided by Moose +Provided by Moose. =head1 AUTHORS