The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 4;
use Cpanel::JSON::XS;

my $xs = Cpanel::JSON::XS->new->latin1->allow_nonref;

eval { $xs->decode ("[] ") };
ok (!$@);
SKIP: {
  skip "5.6", 1 if $] < 5.008;
  eval { $xs->decode ("[] x") };
  ok ($@);
}
ok (2 == ($xs->decode_prefix ("[][]"))[1]);
ok (3 == ($xs->decode_prefix ("[1] t"))[1]);