Yet Another CPAN Grep

JSON-PP-Compat5005 ( M/MA/MAKAMAKA/JSON-PP-Compat5005-1.10.tar.gz, MAKAMAKA, 2010; MetaCPAN )

JSON-PP-Compat5005/lib/JSON/PP/Compat5005.pm ( view source; MetaCPAN )

kage JSON::PP::Compat5005;

use 5.005;
use strict;

BEGIN {
    if ( $] >= 5.006 ) {
        require Carp;
        die( "JSON::PP::Compat5005 is for Perl 5.005" );
    }
}

my @properties;

$JSON::PP:

JSON::PP::JSON_PP_encode_ascii      = \&_encode_ascii;
    *JSON::PP::JSON_PP_encode_latin1     = \&_encode_latin1;
    *JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
    *JSON::PP::JSON

alid escaped unicode");
    }

    return pack('B*', $utf8bit);
}


sub JSON::PP::incr_text {
    $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new;

    if ( $_[0]->{_incr_parser}->{incr_parsing} )