1 package TestAppEncoding::Controller::Root;
4 use base 'Catalyst::Controller';
7 __PACKAGE__->config->{namespace} = '';
11 $c->res->body(do { open(my $fh, '<', $c->path_to('..', '..', 'catalyst_130pix.gif')) or die $!; local $/ = undef; <$fh>; });
14 sub binary_utf8 : Local {
16 $c->forward('binary');
17 my $str = $c->res->body;
19 ok utf8::is_utf8($str), 'Body is variable width encoded string';