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;
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;