404.mt

404 Not Found!

App.pm

package App;
use Ark;

1;

app_server.pl

#!/usr/bin/env perl

use strict;
use warnings;
use FindBin::libs;

use App;
use HTTP::Engine;

my $app = App->new;
$app->setup;

HTTP::Engine->new(
    interface => {
        module => 'ServerSimple',
        args   => {
            host => '0.0.0.0',
            port => 4423,
        },
        request_handler => $app->handler,
    },
)->run;

index.mt

index!

MT.pm

package App::View::MT;
use Ark 'View::MT';

1;

Root.pm

package App::Controller::Root;
use Ark 'Controller';

has '+namespace' => default => '';

sub default :Path Args {
    my ($self, $c) = @_;
    $c->res->status(404);
    $c->view('MT')->template('errors/404');
}

sub index :Path :Args(0) {
    my ($self, $c) = @_;
}

sub end :Private {
    my ($self, $c) = @_;

    $c->res->header( 'Cache-Control' => 'private');

    unless ($c->res->body or $c->res->status =~/^3\d\d/) {
        $c->forward( $c->view('MT') );
    }
}

1;