use strict;
use warnings;
-use Test::More;
+use Test::More ();
use Catalyst::Exception;
use Catalyst::Utils;
use Class::MOP;
use Sub::Exporter;
-sub build_exports {
+my $build_exports = sub {
my ($self, $meth, $args, $defaults) = @_;
my $request;
return Test::More->builder->is_eq(scalar($res->content_type),@_);
},
};
-}
+};
-use namespace::clean;
our $default_host;
{
my $import = Sub::Exporter::build_exporter({
- groups => [ all => \&build_exports ],
+ groups => [ all => $build_exports ],
into_level => 1,
});
sub _customize_request {
my $request = shift;
my $opts = pop(@_) || {};
+ $opts = {} unless ref($opts) eq 'HASH';
if ( my $host = exists $opts->{host} ? $opts->{host} : $default_host ) {
$request->header( 'Host' => $host );
}