/usr/share/doc/libtext-xslate-perl/examples/amon2.psgi is in libtext-xslate-perl 3.5.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | #!/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>
|