my $request;
my $class = $args->{class};
- if (!$class) {
- croak "Must specify a test app: use Catalyst::Test 'TestApp'";
- }
-
if ( $ENV{CATALYST_SERVER} ) {
$request = sub { remote_request(@_) };
+ } elsif (!$class) {
+ $request = sub { croak "Must specify a test app: use Catalyst::Test 'TestApp'"; }
} else {
unless (Class::MOP::is_class_loaded($class)) {
Class::MOP::load_class($class);
sub local_request {
my $app = shift;
-=for reference
- require HTTP::Request::AsCGI;
-
- my $request = Catalyst::Utils::request( shift(@_) );
- _customize_request($request, @_);
- my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
-
- $class->handle_request( env => \%ENV );
-
- my $response = $cgi->restore->response;
- $response->request( $request );
- return $response;
-=cut
-
my $request = Catalyst::Utils::request(shift);
_customize_request($request, @_);