This file documents the revision history for Perl extension Catalyst.
5.62
+ - Added class and method for catched exceptions messages
- Updated PAR support to use "make catalyst_par",
packages are no longer written by Makefile.PL
- Automatically determine Content-Length when serving a
push @{ $c->{stats} }, [ $action, sprintf( '%fs', $elapsed ) ];
}
}
+ my $last = ${ $c->stack }[-1];
pop( @{ $c->stack } );
if ( my $error = $@ ) {
else {
unless ( ref $error ) {
chomp $error;
- $error = qq/Caught exception "$error"/;
+ my $class = $last->class;
+ my $name = $last->name;
+ $error = qq/Caught exception in $class->$name "$error"/;
}
$c->error($error);
$c->state(0);
);
like(
$response->header('X-Catalyst-Error'),
- qr/^Caught exception "I'm going to die!"$/,
+ qr/"I'm going to die!"$/,
'Catalyst Error'
);
}