The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use Test::More;
use Test::Requires qw/Tiffany Test::WWW::Mechanize::PSGI Text::MicroTemplate/;

package MyApp;
use parent qw/Amon2/;

package MyApp::Web;
use Amon2::Web;
our @ISA = qw/MyApp Amon2::Web/;

sub create_view { Tiffany->load('Text::MicroTemplate::File', {include_path => ['t/tmpl/']}) }

sub dispatch {
    my $c = shift;
    $c->render('foo.mt', 'world');
}

package main;

my $app = MyApp::Web->to_app();
my $mech = Test::WWW::Mechanize::PSGI->new(app => $app);
$mech->get_ok('http://localhost/');
$mech->content_like(qr/Hello, world!/);

done_testing;