wT3GQnICgcWVV4XGtiIB2 changeset
| Changeset | 306133343635 (b) |
|---|---|
| Parent | None (a) |
| a | b | ||
|---|---|---|---|
| 0 | + | #!/usr/bin/env perl | |
| 0 | + | use strict; | |
| 0 | + | use Mojolicious::Lite; | |
| 0 | + | ||
| 0 | + | get '/' => sub { | |
| 0 | + | my $self = shift; | |
| 0 | + | $self->respond_to( | |
| 0 | + | json => {some_key => 'the_value'} | |
| 0 | + | ); | |
| 0 | + | }; | |
| 0 | + | ||
| 0 | + | app->start; | |
| ... | |||
|
|