Merge master up roles-saner mirror/roles-saner
Tomas Doran [Wed, 26 Aug 2009 00:52:09 +0000 (01:52 +0100)]
1  2 
lib/Catalyst/Action/REST.pm
t/catalyst-request-rest.t

@@@ -16,8 -17,16 +16,9 @@@ extends 'Catalyst::Action'
  
  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
@@@ -168,10 -168,24 +168,12 @@@ use HTTP::Headers
  }
  
  {
+   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;