X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;h=e8b5230371ffdbd8b53a22ea760c625b768d1cf0;hb=d4a29ad2859eb2b659bdd1032bd00f431235487e;hp=649ea78160109da8936061fa6af6fd11acb10ef4;hpb=cfd04b0cabf99346090fe4e3312e393364e571ef;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index 649ea78..e8b5230 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/); +__PACKAGE__->mk_accessors(qw/class namespace reverse attributes name code/); use overload ( @@ -29,6 +29,10 @@ See L. =over 4 +=item attributes + +=item class + =item code =item execute @@ -37,21 +41,15 @@ See L. sub execute { # Execute ourselves against a context my ( $self, $c ) = @_; - return $c->execute( $self->namespace, $self ); + local $c->{namespace} = $self->namespace; + 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