#!/usr/bin/env perl
use Mojolicious::Lite -signatures;
get '/' => sub ($c) {
if ( !$c->param('foo') )
{ $c->redirect_to( $c->url_for('index')->query(foo=>"bar") ) }
else { $c->render('index') }
} => 'index';
app->start;
__DATA__
@@ index.html.ep
% layout 'main', title => 'Hello, World!';
%= url_for('/')
%= url_for('/')->to_abs
%= url_for('/')->to_abs->query(abc=>"xyz")
%= url_with('/')
%= url_with('/')->to_abs
%= url_with('/')->to_abs->query(abc=>"xyz")
@@ layouts/main.html.ep
<%= title %>
<%= content %>
####
/
http://localhost:3000/
http://localhost:3000/?abc=xyz
/?foo=bar
http://localhost:3000/?foo=bar
http://localhost:3000/?abc=xyz