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=fdb237c5d7575630be5abd6571b753c5fb7e9144;hp=e9c936303d235f5dbff4826e4c4b3ff700fdb77c;hb=4d38cb074da32815d87f1fb9fe7c03b761fdf15a;hpb=009b5b2324f83396439a494a56684efb60eb2cd8 diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index e9c9363..fdb237c 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 name of the component where this action is defined. +Derived by calling the L +method on each component. =head2 code