This file documents the revision history for Perl extension Catalyst.
-5.62
+6.00
- Added YAML config support
- Added COMPONENT() and ACCEPT_CONTEXT() support
- Action list in debug mode is now displayed as a tree in the
__PACKAGE__->request_class('Catalyst::Request');
__PACKAGE__->response_class('Catalyst::Response');
-our $VERSION = '5.62';
+our $VERSION = '6.00';
sub import {
my ( $class, @arguments ) = @_;
# this is done by walking up the call stack and looking for a calling
# sub of Catalyst::forward before the eval
my $callsub = q{};
- for my $index (1..10) {
- last
- if ( ( caller($index) )[0] eq 'Catalyst'
+ for my $index ( 1 .. 10 ) {
+ last
+ if ( ( caller($index) )[0] eq 'Catalyst'
&& ( caller($index) )[3] eq '(eval)' );
-
- if ( (caller($index))[3] =~ /forward$/ ) {
- $callsub = (caller($index))[3];
- $action = "-> $action";
+
+ if ( ( caller($index) )[3] =~ /forward$/ ) {
+ $callsub = ( caller($index) )[3];
+ $action = "-> $action";
last;
}
}