gistfile1.pl

#!/usr/bin/env perl

use Mojolicious::Lite;

hook before_dispatch => sub {
        my $self = shift;
        $self->app->log->debug("entering 1st before dispatch hook...");

        $self->render( text => "stop", status => 300 );
};

hook before_dispatch => sub {
        my $self = shift;
        $self->app->log->debug("entering 2nd before dispatch hook...");
};

hook after_dispatch => sub {
        my $self = shift;
        $self->app->log->debug("entering 1st after dispatch hook...");
};

hook after_dispatch => sub {
        my $self = shift;
        $self->app->log->debug("entering 2nd after dispatch hook...");
};

get '/' => sub {
        my $self = shift;
        $self->render(text => "foobar", status => 200);
};

app->start;