#!perl
use strict;
use warnings;
use Amon2::Lite;
get '/' => sub {
my ($c) = @_;
$c->render('index.tt');
};
get '/hello' => sub {
my ($c) = @_;
$c->render('index.tt', { name => 'Amon2' });
};
sub res_404 {
my($c) = @_;
use Data::Dumper;
die Dumper($c);
}
__PACKAGE__->to_app();
__DATA__
@@ index.tt
<!doctype html>
<html>
<body><h1>Hello, [% name // 'Xslate' %] world!</body>
</html>