Re: JSON::XS を実戦投入した

Perl Catalyst

unknownplace.org - 2008/02/05 - JSON::XS を実戦投入した

Catalyst::View::JSON-0.23(2008/02/22)からencode_jsonが使えるようになってるっぽ。

package MyApp::View::JSON;
use strict;
use base 'Catalyst::View::JSON';

use JSON::XS ();

my $encoder = JSON::XS->new->latin1;

sub encode_json {
    my($self, $c, $data) = @_;
    $encoder->encode($data);
}

1;

typesterさんとこにトラックバック送れなかったっけ？URLが分からない。。。