use Carp qw/croak/;
require Catalyst::Test; # Do not call import
+use Class::Load qw(load_class is_class_loaded);
use Encode qw();
use HTML::Entities;
use Test::WWW::Mechanize;
extends 'Test::WWW::Mechanize', 'Moose::Object';
-#use namespace::clean -execept => 'meta';
+#use namespace::clean -except => 'meta';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
our $APP_CLASS;
my $Test = Test::Builder->new();
unless ($ENV{CATALYST_SERVER}) {
croak "catalyst_app attribute is required unless CATALYST_SERVER env variable is set"
unless $self->has_catalyst_app;
- Class::MOP::load_class($self->catalyst_app)
- unless (Class::MOP::is_class_loaded($self->catalyst_app));
+ load_class($self->catalyst_app)
+ unless (is_class_loaded($self->catalyst_app));
}
}
Catalyst::Test::local_request($self->{catalyst_app}, $request);
- # LWP would normally do this, but we dont get down that far.
+ # LWP would normally do this, but we don't get down that far.
$response->request($request);
return $response
sub _check_external_request {
my ($self, $request) = @_;
- # If there's no host then definatley not an external request.
+ # If there's no host then definitley not an external request.
$request->uri->can('host_port') or return;
if ( $self->allow_external && $request->uri->host_port ne 'localhost:80' ) {
my ($class, $app) = @_;
if (defined $app) {
- Class::MOP::load_class($app)
- unless (Class::MOP::is_class_loaded($app));
+ load_class($app)
+ unless (is_class_loaded($app));
$APP_CLASS = $app;
}
=head1 AUTHOR
-Ash Berlin C<< <ash@cpan.org> >> (current maintiner)
+Ash Berlin C<< <ash@cpan.org> >> (current maintainer)
Original Author: Leon Brocard, C<< <acme@astray.com> >>