25 lines
301 B
Perl
Executable File
25 lines
301 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use Mojolicious::Lite;
|
|
|
|
get '/' => sub {
|
|
my ($c) = @_;
|
|
my $fortune = `fortune`;
|
|
|
|
$c->render(fortune => $fortune)
|
|
} => 'index';
|
|
|
|
get '/me' => sub {
|
|
my ($c) = @_;
|
|
|
|
$c->render();
|
|
};
|
|
|
|
get '/news' => sub {
|
|
my ($c) = @_;
|
|
|
|
$c->render();
|
|
};
|
|
|
|
app->start();
|