www2.0/www-swagg.pl

#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my ($c) = @_;
    my $fortune = `fortune`;
    
    $c->render(fortune => $fortune)
} => 'index';

app->start();
Pulled in enough stuff to render something of a homepage 2021-02-27 05:39:40 +00:00			`#!/usr/bin/env perl`

			`use Mojolicious::Lite;`

			`get '/' => sub {`
			`my ($c) = @_;`
Implemented `fortune` 2021-02-27 06:14:38 +00:00			my $fortune = `fortune`;

			`$c->render(fortune => $fortune)`
Pulled in enough stuff to render something of a homepage 2021-02-27 05:39:40 +00:00			`} => 'index';`

			`app->start();`