mojo-subprocess.pl

package Queryexporter::Controller::Query::ViewRows;
use Mojo::Base 'Queryexporter::Controller';
use JSON;

sub preview {
    my $c = shift;
    my $user = $c->stash->{user_rs}->next or $c->user_not_found;

    $c->subprocess(
        sub {
            my $subprocess = shift;

            my $rows = eval { $c->stash('query')->fetchall_as_hash; die 'testing exception' };
            if ($@) {
                $rows = { exception => $@ };
            }

            return $rows;
        },
        sub {
            my ( $c, $result ) = @_;

            if ( ref $result eq 'HASH' && $result->{exception} ) {
                $c->app->log->fatal( $c->app->dumper( $result->{exception} ) );
                $c->render(
                    json   => { error => "Internal server error" },
                    status => 500,
                );
            }
            else {

                $c->render(
                    json => {
                        rows => $result,
                    },
                    status => 200,
                );
            }

        }
    );

}

1;