#!/usr/bin/perl use Mojolicious::Lite -signatures; get '/' => sub ($c) { $c->render(template => 'index'); } => 'index'; get '/delete' => sub ($c) { my $token = $c->param('token'); my $key = $c->param('key'); my $usr = $c->param('usr'); $c->render( text=>"Token: $token - Key: $key - Usr: $usr" ); } => 'delete'; app->start; __DATA__ @@ layouts/main.html.ep <%= title %> %= content @@ index.html.ep % layout 'main', title => 'Hello, World!';
%= form_for delete => ( method=>'get' ) => begin %= hidden_field key => 'gfgf' %= hidden_field usr => 'rob'
%= label_for id => 'Your token' %= text_field token=>'Default', class=>"form-control", id=>"id", readonly=>undef
%= submit_button 'Delete', class=>"btn btn-primary"
%= end