X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;h=ea2063acd4e5d6e919b31d5fbe8c5cf1ba321449;hp=b1990e9b692eaa599db906f5085fb2563d7028e3;hb=b8f669f3c51dab87bfe9387dbaac0c07027abcfd;hpb=f8ad6ea56eeb4d3a3d5d77cf502651712dfb5e62 diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index b1990e9..ea2063a 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -27,7 +27,7 @@ sub _BEGIN : Private { my ( $self, $c ) = @_; my $begin = ( $c->get_actions( 'begin', $c->namespace ) )[-1]; return 1 unless $begin; - $begin->execute($c); + $begin->dispatch( $c ); return !@{ $c->error }; } @@ -35,7 +35,7 @@ sub _AUTO : Private { my ( $self, $c ) = @_; my @auto = $c->get_actions( 'auto', $c->namespace ); foreach my $auto (@auto) { - $auto->execute($c); + $auto->dispatch( $c ); return 0 unless $c->state; } return 1; @@ -47,7 +47,7 @@ sub _ACTION : Private { && $c->action->can('execute') && $c->req->action ) { - $c->action->execute($c); + $c->action->dispatch( $c ); } return !@{ $c->error }; } @@ -56,7 +56,7 @@ sub _END : Private { my ( $self, $c ) = @_; my $end = ( $c->get_actions( 'end', $c->namespace ) )[-1]; return 1 unless $end; - $end->execute($c); + $end->dispatch( $c ); return !@{ $c->error }; }