#!/usr/bin/env perl
use Mojolicious::Lite;
# Documentation browser under "/perldoc"
plugin 'PODRenderer';
get '/' => sub {
my $c = shift;
$c->render('index');
};
post '/lo' => sub {
my $c = shift;
my @params = $c->req->body_params;
$c->stash('all_post_params'=> join(',',@params) );
$c->stash('tx'=> $c->req->param('textentry') );
$c->stash('pw'=> $c->req->body_params->param('passw'));
$c->stash('hid'=> $c->param('hid') );
$c->render('parameter');
};
# get rid of the secrets-warning
app->secrets(['abcd']);
app->start;
__DATA__
@@ index.html.ep
Parameter Test
@@ parameter.html.ep
Parameter Results
Text: <%=stash('tx')%>
Password: <%= param('passw') %>
Hidden: <%= param('hid') %>
All POST-params:
<%=stash('all_post_params')%>
again