X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=52949217fed473e64cce72fd64b4434892d33ae6;hb=b5176d9ee9b99c2550fc202ee25709d431482ede;hp=64340b284f8dcf6cca7d937c04a10b642537fca9;hpb=2aaa2e5b1224166a25b8198e61f932cddb584ebb;p=catagits%2FCatalyst-Runtime.git
diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 64340b2..5294921 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -118,27 +118,27 @@ sub component {
}
}
-=item $c->errors
+=item $c->error
-=item $c->errors($error, ...)
+=item $c->error($error, ...)
-=item $c->errors($arrayref)
+=item $c->error($arrayref)
-Returns an arrayref containing errors messages.
+Returns an arrayref containing error messages.
- my @errors = @{ $c->errors };
+ my @error = @{ $c->error };
Add a new error.
- $c->errors('Something bad happened');
+ $c->error('Something bad happened');
=cut
-sub errors {
+sub error {
my $c = shift;
- my $errors = ref $_[0] eq 'ARRAY' ? $_[0] : [@_];
- push @{ $c->{errors} }, @$errors;
- return $c->{errors};
+ my $error = ref $_[0] eq 'ARRAY' ? $_[0] : [@_];
+ push @{ $c->{error} }, @$error;
+ return $c->{error};
}
=item $c->finalize
@@ -156,13 +156,13 @@ sub finalize {
$c->res->status(302);
}
- if ( !$c->res->output || $#{ $c->errors } >= 0 ) {
+ if ( !$c->res->output || $#{ $c->error } >= 0 ) {
$c->res->headers->content_type('text/html');
my $name = $c->config->{name} || 'Catalyst Application';
- my ( $title, $errors, $infos );
+ my ( $title, $error, $infos );
if ( $c->debug ) {
- $errors = join '
', @{ $c->errors };
- $errors ||= 'No output';
+ $error = join '
', @{ $c->error };
+ $error ||= 'No output';
$title = $name = "$name on Catalyst $Catalyst::VERSION";
my $req = encode_entities Dumper $c->req;
my $res = encode_entities Dumper $c->res;
@@ -178,9 +178,9 @@ sub finalize {
}
else {
- $title = $name;
- $errors = '';
- $infos = <<"";
+ $title = $name;
+ $error = '';
+ $infos = <<"";
(en) Please come back later (de) Bitte versuchen sie es spaeter nocheinmal @@ -214,7 +214,7 @@ sub finalize { margin: 10px; -moz-border-radius: 10px; } - div.errors { + div.error { background-color: #977; border: 1px solid #755; padding: 8px; @@ -241,7 +241,7 @@ sub finalize {-@@ -301,22 +301,13 @@ sub forward { } my $results = $c->get_action( $command, $namespace ); if ( @{$results} ) { - if ( $command =~ /^\!/ ) { - for my $result ( @{$results} ) { - my ( $class, $code ) = @{ $result->[0] }; - $c->state( $c->process( $class, $code ) ); - } - } - else { - return 0 unless my $result = $results->[0]; - if ( $result->[2] ) { + unless ( $command =~ /^\!/ ) { + $results = [ pop @{$results} ]; + if ( $results->[0]->[2] ) { $c->log->debug(qq/Couldn't forward "$command" to regex action/) if $c->debug; return 0; } - my ( $class, $code ) = @{ $result->[0] }; - $class = $c->components->{$class} || $class; - $c->state( $c->process( $class, $code ) ); } } else { @@ -328,8 +319,7 @@ sub forward { my $method = shift || 'process'; if ( my $code = $class->can($method) ) { $c->actions->{reverse}->{"$code"} = "$class->$method"; - $class = $c->comp($class) || $class; - $c->state( $c->process( $class, $code ) ); + $results = [ [ [ $class, $code ] ] ]; } else { $c->log->debug(qq/Couldn't forward to "$class->$method"/) @@ -337,6 +327,9 @@ sub forward { return 0; } } + for my $result ( @{$results} ) { + $c->state( $c->process( @{ $result->[0] } ) ); + } return $c->state; } @@ -364,6 +357,7 @@ sub get_action { my $child = $visitor->getResult; my $uid = $child->getUID if $child; my $match = $c->actions->{private}->{$uid}->{$action} if $uid; + return [ [$match] ] if ( $match && $match =~ /^?.*/ ); $local = $c->actions->{private}->{$uid}->{"?$action"} if $uid; push @results, [$match] if $match; $parent = $child if $child; @@ -419,6 +413,7 @@ sub handler ($$) { } for my $result ( @{ $c->get_action( $action, $namespace ) } ) { $c->state( $c->process( @{ $result->[0] } ) ); + last unless $action =~ /^\!.*/; } for my $end ( @{ $c->get_action( '!end', $namespace ) } ) { $c->state( $c->process( @{ $end->[0] } ) ); @@ -430,7 +425,7 @@ sub handler ($$) { ? qq/Unknown resource "$path"/ : "No default action defined"; $c->log->error($error) if $c->debug; - $c->errors($error); + $c->error($error); } return $c->finalize; }; @@ -453,7 +448,8 @@ sub handler ($$) { =item $c->prepare($r) -Turns the engine-specific request (Apache, CGI...) into a Catalyst context. +Turns the engine-specific request( Apache, CGI ... ) +into a Catalyst context . =cut @@ -486,8 +482,8 @@ sub prepare { } $c->prepare_request($r); $c->prepare_path; - $c->prepare_cookies; $c->prepare_headers; + $c->prepare_cookies; $c->prepare_connection; my $method = $c->req->method || ''; my $path = $c->req->path || ''; @@ -613,33 +609,34 @@ sub prepare_uploads { } =item $c->process($class, $coderef) Process a coderef in given class and catch exceptions. -Errors are available via $c->errors. +Errors are available via $c->error. =cut sub process { my ( $c, $class, $code ) = @_; - my $status; + $class = $c->comp($class) || $class; + $c->state(0); eval { if ( $c->debug ) { my $action = $c->actions->{reverse}->{"$code"} || "$code"; - my $elapsed; - ( $elapsed, $status ) = + my ( $elapsed, @state ) = $c->benchmark( $code, $class, $c, @{ $c->req->args } ); $c->log->info( sprintf qq/Processing "$action" took %fs/, $elapsed ) if $c->debug; + $c->state(@state); } - else { $status = &$code( $class, $c, @{ $c->req->args } ) } + else { $c->state( &$code( $class, $c, @{ $c->req->args } ) ) } }; if ( my $error = $@ ) { chomp $error; $error = qq/Caught exception "$error"/; $c->log->error($error); - $c->errors($error) if $c->debug; - return 0; + $c->error($error) if $c->debug; + $c->state(0); } - return $status; + return $c->state; } =item $c->run @@ -710,7 +707,8 @@ sub set_action { else { $c->actions->{plain}->{$action} = [ $namespace, $code ] } my $reverse = $prefix ? "$action ($prefix)" : $action; $c->actions->{reverse}->{"$code"} = $reverse; - $c->log->debug(qq/"$namespace" defined "$action" as "$code"/) if $c->debug; + $c->log->debug(qq/"$namespace" defined "$action" as "$code"/) + if $c->debug; } =item $class->setup$errors+$error$infos$name