| Akron | acb7f3d | 2025-09-17 11:56:45 +0200 | [diff] [blame^] | 1 | #!/usr/bin/env perl |
| 2 | use Mojolicious::Lite; | ||||
| 3 | use strict; | ||||
| 4 | use warnings; | ||||
| 5 | |||||
| 6 | # Base page | ||||
| 7 | get '/' => sub { | ||||
| 8 | shift->render(text => 'Hello base world!'); | ||||
| 9 | }; | ||||
| 10 | |||||
| 11 | get '/*all' => sub { | ||||
| 12 | my $c = shift; | ||||
| 13 | $c->render(text => 'Hello world! ' . $c->stash('all')); | ||||
| 14 | }; | ||||
| 15 | |||||
| 16 | app->start; | ||||