sub _build__dispatcher {
my $self = shift;
require Web::Dispatch;
- require Web::Simple::DispatchNode;
my $final = $self->_build_final_dispatcher;
# We need to weaken both the copy of $self that the
# closes back over $self
weaken($self);
- my $node_args = { app_object => $self };
- weaken($node_args->{app_object});
- Web::Dispatch->new(
- app => sub { $self->dispatch_request(@_), $final },
- node_class => 'Web::Simple::DispatchNode',
- node_args => $node_args
+ my %dispatch_args = (
+ dispatch_app => sub { $self->dispatch_request(@_), $final },
+ dispatch_object => $self
);
+ weaken($dispatch_args{dispatch_object});
+ Web::Dispatch->new(%dispatch_args);
}
sub _build_final_dispatcher {
} elsif ($ENV{GATEWAY_INTERFACE}) {
return $self->_run_cgi;
}
- unless (@ARGV && $ARGV[0] =~ m{^[A-Z/]}) {
+ unless (@ARGV && $ARGV[0] =~ m{(^[A-Z/])|\@}) {
return $self->_run_cli(@ARGV);
}
my @args = @ARGV;
- unshift(@args, 'GET') if $args[0] =~ m{^/} or $args[0] =~ m{\@};
+ unshift(@args, 'GET') if $args[0] !~ /^[A-Z]/;
$self->_run_cli_test_request(@args);
}
unshift @rest, 'Authorization:', 'Basic '.MIME::Base64::encode($basic);
}
- require HTTP::Request;
-
my $request = HTTP::Request->new($method => $path);
my @params;
sub run_test_request {
my ($self, @req) = @_;
+ require HTTP::Request;
+
require Plack::Test;
my $request = $self->_test_request_spec_to_http_request(@req);
you can override this method:
use Web::Simple 'HelloWorld';
- use Plack::Builder;
{
package HelloWorld;
-
+ use Plack::Builder;
around 'to_psgi_app', sub {
my ($orig, $self) = (shift, shift);