| Current Path : /usr/share/doc/perl-JSON-Parse/examples/ |
| Current File : //usr/share/doc/perl-JSON-Parse/examples/assert.pl |
#!/usr/bin/perl
use warnings;
use strict;
use JSON::Parse 'assert_valid_json';
eval {
assert_valid_json ('["xyz":"b"]');
};
if ($@) {
print "Your JSON was invalid: $@\n";
}
# Prints "Unexpected character ':' parsing array"