www2.0/www-swagg.pl

19 lines
229 B
Perl
Raw Normal View History

#!/usr/bin/env perl
use Mojolicious::Lite;
get '/' => sub {
my ($c) = @_;
2021-02-28 06:33:35 +00:00
my $fortune = `fortune` || 'huh??';
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();