use Catalyst::Utils;
use UNIVERSAL::require;
-$ENV{CATALYST_ENGINE} ||= 'CGI';
-
=head1 NAME
-Catalyst::Test - Test Catalyst applications
+Catalyst::Test - Test Catalyst Applications
=head1 SYNOPSIS
# Tests with inline apps need to use Catalyst::Engine::Test
package TestApp;
- use Catalyst qw[-Engine=Test];
+ use Catalyst;
sub foo : Global {
my ( $self, $c ) = @_;
=head1 DESCRIPTION
-Test Catalyst applications.
+Test Catalyst Applications.
=head2 METHODS
-=over 4
-
-=item get
+=head2 get
Returns the content.
my $content = get('foo/bar?test=1');
-=item request
+=head2 request
Returns a C<HTTP::Response> object.
*{"$caller\::get"} = $get;
}
-=item local_request
+=head2 local_request
=cut
my $agent;
-=item remote_request
+=head2 remote_request
Do an actual remote request using LWP.
return $agent->request($request);
}
-=back
-
=head1 SEE ALSO
L<Catalyst>.