package Web::Simple::Application;
+use Scalar::Util 'weaken';
+use Try::Tiny;
+
use Moo;
has 'config' => (
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 {
}
sub run_if_script {
+ my ( $self ) = @_;
# ->to_psgi_app is true for require() but also works for plackup
- return $_[0]->to_psgi_app if caller(1);
- my $self = ref($_[0]) ? $_[0] : $_[0]->new;
+ return $self->to_psgi_app if caller(1);
+ $self = ref($self) ? $self : $self->_build_for_run_if_script;
$self->run(@_);
}
+sub _build_for_run_if_script {
+ my ( $self ) = @_;
+ try { $self->new }
+ catch {
+ die "Failed to create new '$self' object during run_if_script"
+ . " (should your .pm file end with just '1;'?) : $_\n";
+ };
+}
+
sub _run_cgi {
my $self = shift;
require Plack::Handler::CGI;
my $self = shift;
if (
$ENV{PHP_FCGI_CHILDREN} || $ENV{FCGI_ROLE} || $ENV{FCGI_SOCKET_PATH}
- || -S STDIN # STDIN is a socket, almost certainly FastCGI
+ || ( -S STDIN && !$ENV{GATEWAY_INTERFACE} )
+ # If STDIN is a socket, almost certainly FastCGI, except for mod_cgid
) {
return $self->_run_fcgi;
} 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{^/};
+ unshift(@args, 'GET') if $args[0] !~ /^[A-Z]/;
$self->_run_cli_test_request(@args);
}
# if it's a reference, assume a request object
return $method if ref($method);
+ if ($path =~ s/^(.*?)\@//) {
+ my $basic = $1;
+ require MIME::Base64;
+ unshift @rest, 'Authorization:', 'Basic '.MIME::Base64::encode($basic);
+ }
+
my $request = HTTP::Request->new($method => $path);
my @params;
my ($self, @req) = @_;
require HTTP::Request;
+
require Plack::Test;
my $request = $self->_test_request_spec_to_http_request(@req);
will generally do the right thing.
+To send basic authentication credentials, use user:pass@ syntax -
+
+ $ ./myapp GET bob:secret@/protected/path
+
Additionally, you can treat the file as though it were a standard PSGI
application file (*.psgi). For example you can start up up with C<plackup>
create an L<HTTP::Request> object by hand or use the C<POST> subroutine
provided by L<HTTP::Request::Common>.
+If you prefix the URL with 'user:pass@' this will be converted into
+an Authorization header for HTTP basic auth:
+
+ my $res = $app->run_test_request(
+ GET => 'bob:secret@/protected/resource'
+ );
+
If pairs are passed where the key ends in :, it is instead treated as a
headers, so: