Revision history for Web-Simple
+ - throw error on failed new in run_if_script
+
0.030 - 2014-08-07
- make dispatch_misc.t handle Plack's MockHTTP's on error behaviour changing
'Scalar::Util' => '0', # not core in 5.6
'Syntax::Keyword::Gather' => '1.001',
'strictures' => '1',
+ 'Try::Tiny' => '0',
'warnings::illegalproto' => '0',
'perl' => '5.006',
},
package Web::Simple::Application;
use Scalar::Util 'weaken';
+use Try::Tiny;
use Moo;
}
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;
use strictures;
use Test::More;
+use Test::Fatal 'exception';
{
use Web::Simple 'RunTest';
sub run { @_, "run" }
}
+{
+ use Web::Simple 'DieTest';
+
+ package DieTest;
+ use Moo;
+ has die => is => ro => required => 1;
+}
+
is(
sub { RunTest->run_if_script }
->(),
"passing arguments to run_if_script has them passed on to the run method"
);
+like(
+ exception { DieTest->_build_for_run_if_script }, #
+ qr/^Failed to create new 'DieTest' object during/,
+ "object creation in run_if_script decorates failure with useful information"
+);
+
done_testing;