use strict;
use warnings;
-
use base qw/ Catalyst::Controller /;
use Cwd;
use MIME::Base64;
use Encode ();
+use utf8;
__PACKAGE__->config( namespace => '' );
}
+# per https://rt.cpan.org/Ticket/Display.html?id=36442
+sub bad_content_encoding :Global {
+ my($self, $c) = @_;
+ $c->res->content_encoding('duff');
+ $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;