#!perl

use Mojolicious::Lite;

any '/route_name' => sub {
    my ( $self ) = @_;
    $self->render( json => whatever( $self->req->json ) );
};

sub whatever {
    my ( $request ) = @_;
    ...
}

app->start;