die without result

diff --git a/web_ui.pl b/web_ui.pl
index d7a3a58..01b7b98 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -37,6 +37,7 @@ get '/g/:call/:args' => [ args => qr/.*/ ] => sub {
        my $self = shift;
        my $ret = $gearman->req( 'SUBMIT_JOB', $self->param('call'), '', $self->param('args') );
        warn $self->param('call'), " = ", dump($ret), "\n";
+       die "no result for ", $self->param('call'), ' args: ', $self->param('args') unless defined $ret;
        my $json = Mojo::JSON->new->decode( $ret );
        $self->render_json( $json );
 };