X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;h=9b2ea9fed4f3e759faa9c0e7cf534094c5cb6c11;hb=05850e06de30638a8aca661a2c38fa45493fc6bd;hp=807a6db373ec9d5945d4ddf3bc29bbf69a5ebf3e;hpb=b96f127f47d826a5bb8ebebc80f1b46ab3497e39;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index 807a6db..9b2ea9f 100644 --- a/lib/Catalyst/Action.pm +++ b/lib/Catalyst/Action.pm @@ -3,7 +3,7 @@ package Catalyst::Action; use strict; use base qw/Class::Accessor::Fast/; -__PACKAGE__->mk_accessors(qw/code namespace reverse prefix attributes/); +__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/); use overload ( @@ -31,6 +31,8 @@ See L. =item attributes +=item class + =item code =item execute @@ -39,21 +41,14 @@ See L. sub execute { # Execute ourselves against a context my ( $self, $c ) = @_; - return $c->execute( $self->namespace, $self ); + return $c->execute( $self->class, $self ); } =item namespace =item reverse -=item new - -=cut - -sub new { # Dumbass constructor - my ( $class, $attrs ) = @_; - return bless { %{ $attrs || {} } }, $class; -} +=item name =back