use strict;
#use Catalyst;
-use Catalyst qw/-Debug/;
+use Catalyst;
use Cwd;
use MIME::Base64;
+use Encode qw//;
our $VERSION = '0.01';
name => 'Catty',
root => cwd . '/t/root',
);
-
Catty->setup();
+Catty->log->levels(undef);
sub default : Private {
my ( $self, $context ) = @_;
sub hello : Global {
my ( $self, $context ) = @_;
- my $html = html( "Hello", "Hi there! ☺" );
+ my $str = Encode::encode('utf-8', "\x{263A}"); # ☺
+ my $html = html( "Hello", "Hi there! $str" );
$context->response->content_type("text/html; charset=utf-8");
$context->response->output($html);
}