use strict;
use warnings;
-
use base qw/ Catalyst::Controller /;
use Cwd;
use MIME::Base64;
use Encode ();
+use utf8;
__PACKAGE__->config( namespace => '' );
$c->res->body('foo');
}
+sub redirect_to_utf8_upgraded_string : Global {
+ my($self, $c) = @_;
+ my $where = $c->uri_for('hello', 'müller')->as_string;
+ utf8::upgrade($where);
+ $c->res->redirect($where);
+}
+
1;