Yet Another CPAN Grep

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

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

ckage JSON::PP::Compat5006;

use 5.006;
use strict;

BEGIN {
    if ( $] >= 5.008 ) {
        require Carp;
        die( "JSON::PP::Compat5006 is for Perl 5.6" );
    }
}

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 = \&JSON::PP::_decode_surrogates;
    *JSON

::PP::JSON_PP_decode_unicode    = \&JSON::PP::_decode_unicode;

    unless ( defined &B::SVp_NOK ) { # missing in B module.
        eval q{ sub B::SVp_NOK () { 0x02000000; } };
    }

}



sub _encode