BEGIN { require 5.008001; }
- our $VERSION = '0.74';
+ our $VERSION = '0.76';
+ $VERSION = eval $VERSION;
-sub new {
- my $class = shift;
- my $config = shift;
- Catalyst::Request::REST->_insert_self_into( $config->{class} );
- return $class->next::method($config, @_);
-}
-
=head1 NAME
Catalyst::Action::REST - Automated REST Method Dispatching
}
{
+ local %ENV=%ENV;
+ $ENV{CATALYST_DEBUG} = 0;
my $test = 'Test::Catalyst::Action::REST';
use_ok $test;
- is($test->request_class, 'Catalyst::Request::REST',
- 'Request::REST took over for Request');
-
- $test->request_class('Some::Other::Class');
- eval { $test->setup_finished(0); $test->setup };
- like $@, qr/$test has a custom request class Some::Other::Class/;
-
- {
- package My::Request;
- use base 'Catalyst::Request::REST';
- }
- $test->request_class('My::Request');
- eval { $test->setup_finished(0); $test->setup };
- is $@, '', 'no error from Request::REST subclass';
+ is($test->request_class, 'Catalyst::Request',
+ 'Request::REST did not take over for Request');
}
package MockContext;