#!/usr/bin/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>
Generated by dwww version 1.15 on Tue Jun 25 08:35:18 CEST 2024.