2021-02-27 05:39:40 +00:00
|
|
|
#!/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)
|
2021-02-27 05:39:40 +00:00
|
|
|
} => '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
|
|
|
|
2021-02-27 05:39:40 +00:00
|
|
|
app->start();
|