www2.0/www-swagg.pl

19 lines
235 B
Perl
Raw Normal View History

#!/usr/bin/env perl
use Mojolicious::Lite;
get '/' => sub {
2021-02-28 07:27:38 +00:00
my ($c) = @_;
my $fortune = `fortune` || "huh??\n";
2021-02-27 06:14:38 +00:00
$c->render(fortune => $fortune)
} => 'index';
2021-02-28 06:33:35 +00:00
get '/die';
2021-02-27 06:24:34 +00:00
2021-02-28 06:33:35 +00:00
get '/me';
2021-02-27 06:24:34 +00:00
2021-02-28 06:33:35 +00:00
get '/news';
2021-02-27 06:24:34 +00:00
app->start();