requires 'B::Hooks::EndOfScope' => '0.08';
requires 'MooseX::Emulate::Class::Accessor::Fast' => '0.00903';
requires 'Class::MOP' => '0.95';
+requires 'Data::OptList';
- requires 'Moose' => '0.93';
+ requires 'Moose' => '1.03';
requires 'MooseX::MethodAttributes::Inheritable' => '0.19';
requires 'MooseX::Role::WithOverloading' => '0.05';
requires 'Carp';
use MooseX::Types::Moose qw/Str Bool/;
use Pod::Usage;
use MooseX::Getopt;
++use Plack::Loader;
use namespace::autoclean;
with 'MooseX::Getopt' => {
Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run;
} "new_with_options";
shift @TestAppToTestScripts::RUN_ARGS;
- my $server = shift @TestAppToTestScripts::RUN_ARGS;
- like ref($server), qr/^Plack::Server/, 'Is a Plack Server';
++my $server = pop @TestAppToTestScripts::RUN_ARGS;
++like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler';
is_deeply \@TestAppToTestScripts::RUN_ARGS, [], "no args";
done_testing;
} "new_with_options";
# First element of RUN_ARGS will be the script name, which we don't care about
shift @TestAppToTestScripts::RUN_ARGS;
- my $server = shift @TestAppToTestScripts::RUN_ARGS;
- like ref($server), qr/^Plack::Server/, 'Is a Plack Server';
++ my $server = pop @TestAppToTestScripts::RUN_ARGS;
++ like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler';
is_deeply \@TestAppToTestScripts::RUN_ARGS, $resultarray, "is_deeply comparison";
}
};
# First element of RUN_ARGS will be the script name, which we don't care about
shift @TestAppToTestScripts::RUN_ARGS;
- my $server = shift @TestAppToTestScripts::RUN_ARGS;
- like ref($server), qr/^Plack::Server/, 'Is a Plack Server';
++ my $server = pop @TestAppToTestScripts::RUN_ARGS;
++ like ref($server), qr/^Plack::Handler/, 'Is a Plack::Handler';
# Mangle argv into the options..
$resultarray->[-1]->{argv} = $argstring;
is_deeply \@TestAppToTestScripts::RUN_ARGS, $resultarray, "is_deeply comparison " . join(' ', @$argstring);