use XSLoader;
BEGIN {
    my $load = \&XSLoader::load;
    sub load {
        *JSON::XS::true  = *true;
        *JSON::XS::false = *false;
        goto &$load;
    }
    *XSLoader::load = *load;
    our( $true, $false ) = \( 1, 0 );
    sub true() { $true }
    sub false() { $false }
}
use JSON::XS();

print ref($_), ' ', $_, $/ for @{
    JSON::XS->new()->decode('["0","1",true,false]')
};