sub new {
my $class = shift;
my $config = shift;
- Catalyst::Request::REST->_insert_self_into($config->{class});
+ Catalyst::Request::REST->_insert_self_into( $config->{class} );
return $class->SUPER::new($config, @_);
}
sub new {
my $class = shift;
my $config = shift;
- Catalyst::Request::REST->_insert_self_into(
- Catalyst::Utils::class2appclass($config->{class})
- );
+ Catalyst::Request::REST->_insert_self_into( $config->{class} );
return $class->SUPER::new($config, @_);
}
use warnings;
use base qw/Catalyst::Request Class::Accessor::Fast/;
+
+use Catalyst::Utils;
use HTTP::Headers::Util qw(split_header_words);
sub _insert_self_into {
- my ($class, $app) = @_;
+ my ($class, $app_class ) = @_;
+ my $app = Catalyst::Utils::class2appclass( $app_class ) || $app_class;
+
my $req_class = $app->request_class;
return if $req_class->isa($class);
if ($req_class eq 'Catalyst::Request') {