MojoliciousでJSON::XSを使う ref: http://qiita.com/uchiko/items/6dceff5360b31d9baea2

file0.txt

$ cpanm JSON::XS Mojo::JSON::XS

myapp.pl

use Mojolicious::Lite;
use Mojo::JSON::XS;
use Mojo::ByteStream 'b';

app->renderer->add_handler(json => sub {
    my ($self, $c, $output, $options) = @_;
    $$output = Mojo::JSON::XS->new->encode($options->{json});
});

{
    no strict 'refs';
    *{"Mojo::ByteStream::TO_JSON"} = sub {
        my $self = shift;
        $self->to_string; # 自身を文字列に変換する
    };
}

get '/' => sub {
    my $self = shift;
    $self->render(json => {name => b('太郎')});
};

app->start;

MyApp.pm

use Mojolicious::Lite;
use Mojo::JSON::XS;

...

app->renderer->add_handler(json => sub {
    my ($self, $c, $output, $options) = @_;
    $$output = Mojo::JSON::XS->new->encode($options->{json});
});

...