Untitled

#!/usr/bin/env perl

use Mojolicious::Lite;
use Encode;

my $charset = 'ISO-8859-1';

any '/' => sub {
    my $self = shift;

    # Render template "root/index.html.ep" with message
    $self->render(
        message => 'Global charset is <b>' . $charset .
                   '</b>,<br />Mojo::Parameters->charset is <b>' .
                   $self->req->params->charset . '</b><br />',
        params => $self->req->params->to_hash,
    );
} => 'index';

1;

plugin Charset => {charset => $charset};

app->start;

__DATA__

@@ index.html.ep
<!doctype html><html>
<head><title>Encoding Test</title></head>
<body>
<p><%== $message %></p>

<% if (%$params) { %>
<h3>Dump parameters</h3>
<p><blockquote><pre><%= dumper $params %></pre></blockquote></p>

<h3>Character string lengths</h3>
<p><blockquote><pre><%
  for (sort keys %$params) {
    %><%= qq'$_: "$params->{$_}", length: ' . length($params->{$_}) . ", has UTF-8 flag: " . (Encode::is_utf8($params->{$_}) ? "yes" : "no") . "\n" %><%
  } %></pre></blockquote></p>
<% } else { %>
<p>Please specify HTTP parameters with with some characters above the 7bit-ASCII range.</p>

<p>I.e. start with
<blockquote><a href="http://127.0.0.1:3000/?p1=h%C3%A4h&p2=h%E4h">http://127.0.0.1:3000/?p1=h%C3%A4h&amp;p2=h%E4h</a></blockquote>
which has two times the same parameter ("h&auml;h"), the first (p1) in UTF-8 encoding, and the second (p2) in ISO-8859-1.</p>
<% } %>
</body>
</html>