throw error on failed new in run_if_script

[catagits/Web-Simple.git] / lib / Web / Simple / Application.pm

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index f72142a..7ef273b 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -1,6 +1,7 @@
 package Web::Simple::Application;
 
 use Scalar::Util 'weaken';
+use Try::Tiny;
 
 use Moo;
 
@@ -49,12 +50,22 @@ 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;