X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;h=8d187a0ac1f4d2c3dbd8520caa159d0a9cdb0820;hp=e9c936303d235f5dbff4826e4c4b3ff700fdb77c;hb=fb0c5b21c3c972bc88b8c6c481f9937f31658a23;hpb=1b79e1994c40fc525b4a84c900a5c95ffd4a2f8a diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index e9c9363..8d187a0 100644 --- a/lib/Catalyst/Action.pm +++ b/lib/Catalyst/Action.pm @@ -55,8 +55,6 @@ use overload ( no warnings 'recursion'; -#__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/); - sub dispatch { # Execute ourselves against a context my ( $self, $c ) = @_; return $c->execute( $self->class, $self ); @@ -84,7 +82,7 @@ sub compare { my ($a1_args) = @{ $a1->attributes->{Args} || [] }; my ($a2_args) = @{ $a2->attributes->{Args} || [] }; - $_ = looks_like_number($_) ? $_ : ~0 + $_ = looks_like_number($_) ? $_ : ~0 for $a1_args, $a2_args; return $a1_args <=> $a2_args; @@ -105,7 +103,9 @@ and so on. This determines how the action is dispatched to. =head2 class -Returns the class name where this action is defined. +Returns the class name of the component where this action is defined. +Derived by calling the L +method on each component. =head2 code