1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
#!/usr/bin/env perl use Mojolicious::Lite; sub weird { my $app = shift; my $param = shift; return sub { my $loop = shift; $app->log->debug("Too weird to jumble: $param"); } }; get '/' => sub { my $c = shift; my $weird = weird($c->app, $c->param("name") // "Bender"); Mojo::IOLoop->next_tick($weird); $c->render(template => 'index'); }; app->start; __DATA__ @@ index.html.ep Hi
You can clone a snippet to your computer for local editing. Learn more.