use Catalyst::Exception;
use Catalyst::Utils;
-use UNIVERSAL::require;
-
-$ENV{CATALYST_ENGINE} ||= 'CGI';
+use Class::Inspector;
=head1 NAME
=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.
}
else {
- $class->require;
- die if $@ && $@ !~ /^Can't locate /;
+ unless( Class::Inspector->loaded( $class ) ) {
+ require Class::Inspector->filename( $class );
+ }
$class->import;
$request = sub { local_request( $class, @_ ) };
*{"$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>.