my $results = $c->get_action( $action, $default );
$namespace ||= '/';
if ( @{$results} ) {
- for my $begin ( @{ $c->get_action( 'begin', $namespace ) } ) {
+
+ # Execute last begin
+ $c->state(1);
+ if ( my $begin = @{ $c->get_action( 'begin', $namespace ) }[-1] ) {
$c->execute( @{ $begin->[0] } );
+ return if scalar @{$c->error};
+ last unless $c->state;
+ }
+
+ # Execute the auto chain
+ for my $auto ( @{ $c->get_action( 'auto', $namespace ) } ) {
+ $c->execute( @{ $auto->[0] } );
+ return if scalar @{$c->error};
+ last unless $c->state;
}
- if ( my $action = $c->req->action ) {
- for my $result ( @{ $c->get_action( $action, $default ) }[-1] ) {
+
+ # Execute the action or last default
+ if ( ( my $action = $c->req->action ) && $c->state ) {
+ if ( my $result = @{ $c->get_action( $action, $default ) }[-1] ) {
$c->execute( @{ $result->[0] } );
- last unless $default;
}
}
- for my $end ( reverse @{ $c->get_action( 'end', $namespace ) } ) {
+
+ # Execute last end
+ if ( my $end = @{ $c->get_action( 'end', $namespace ) }[-1] ) {
$c->execute( @{ $end->[0] } );
+ return if scalar @{$c->error};
+ last unless $c->state;
}
}
else {
chomp $error;
$error = qq/Caught exception "$error"/;
$c->log->error($error);
- $c->error($error) if $c->debug;
+ $c->error($error);
$c->state(0);
}
return $c->state;