void
warn_only (parser, onoff)
    JSON::Parse parser;
    SV * onoff;
CODE:
    parser->warn_only = SvTRUE (onoff) ? 1 : 0;