Lines Matching refs:JSON

18 use JSON::PP;
24    $js = JSON::PP->new->allow_nonref(0)->utf8->ascii->shrink->encode ([$_[0]]);
26    $js = JSON::PP->new->allow_nonref(0)->utf8->ascii->encode ([$_[0]]);
27    ok ($_[0] eq (JSON::PP->new->utf8->shrink->decode($js))->[0], " - 1");
29    $js = JSON::PP->new->allow_nonref(0)->utf8->shrink->encode ([$_[0]]);
31    $js = JSON::PP->new->allow_nonref(1)->utf8->encode ([$_[0]]);
32    ok ($_[0] eq (JSON::PP->new->utf8->shrink->decode($js))->[0], " - 3");
34    $js = JSON::PP->new->allow_nonref(1)->ascii->encode ([$_[0]]);
35    ok ($_[0] eq JSON::PP->new->decode ($js)->[0], " - 4");
36    $js = JSON::PP->new->allow_nonref(0)->ascii->encode ([$_[0]]);
37    ok ($_[0] eq JSON::PP->new->shrink->decode ($js)->[0], " - 5");
39    $js = JSON::PP->new->allow_nonref(1)->shrink->encode ([$_[0]]);
40    ok ($_[0] eq JSON::PP->new->decode ($js)->[0], " - 6");
41    $js = JSON::PP->new->allow_nonref(0)->encode ([$_[0]]);
42    ok ($_[0] eq JSON::PP->new->shrink->decode ($js)->[0], " - 7");