NAME
JSON::JOM - the JSON Object Model
SYNOPSIS
# from_json and to_json compatible with the JSON module
# but build JSON::JOM::Object and JSON::JOM::Array objects
use JSON::JOM qw[from_json to_json];
my $object = from_json('{ ...some json... }');
# JOM objects are blessed hashrefs and arrayrefs
# So you can read from them like this...
my $thingy = $object->{'foo'}{'bar'}[0]{'quux'};
# But look at this:
my $array = $thingy->parentNode->parentNode;
print $array->nodePath; # $['foo']['bar']
DESCRIPTION
JSON::JOM provides a DOM-like API for working with JSON.
While JSON represents JSON arrays as Perl arrayrefs and JSON objects as
Perl hashrefs, JSON::JOM represents each as a blessed object.
Internally, JSON::JOM::Object and JSON::JOM::Array store their data as a
hashref or arrayref, so you can still use this pattern of working:
my $data = JSON::JOM::from_json(<<'JSON');
{
"foo": {
"bar": [
{ "quux" : 0 },
{ "quux" : 1 },
{ "quux" : 2 },
]
}
}
JSON
foreach my $obj (@{ $data->{foo}{bar} })
{
printf("The quux of the matter is: %d\n", $obj->{quux})
}
But all arrays and objects provide various methods to make working with
them a bit easier. See JSON::JOM::Object and JSON::JOM::Array for
descriptions of these methods.
Values that the JSON module would represent as a Perl scalar, are
represented as a JSON::JOM::Value in JOM. This uses overload to act like
a scalar.
Note that if you use the arrayref/hashref way of working, things are not
always completely intuitive:
$root = to_jom({});
$child = [ 1,2,3 ];
# Add $child to our JOM structure:
$root->{list} = $child;
print $root->{list}->count . "\n"; # prints '3'
# Now modify $child
push @$child, 4;
print $root->{list}->count . "\n"; # still '3'!
This is because the $child arrayref isn't just placed blindly into the
JOM structure, but "imported" into it. Compare the above with:
$root = to_jom({});
$child = [ 1,2,3 ];
# Add $child to our JOM structure, and this time,
# set $child to point to the imported list.
$child = $root->{list} = $child;
print $root->{list}->count . "\n"; # prints '3'
# Now modify $child
push @$child, 4;
print $root->{list}->count . "\n"; # prints '4'
FUNCTIONS
This modules provides the following functions. None of them are exported
by default.
use JSON::JOM; # export nothing
use JSON::JOM ':standard'; # export first three
use JSON::JOM ':all; # export everything
use JSON::JOM 'to_jom'; # export a particular function
"from_json($string, \%options)"
JSON parser compatible with JSON::from_json.
"to_json($jom, \%options)"
JSON serialiser mostly compatible with JSON::to_json.
"to_jom($data)"
Converts a Perl hashref/arrayref structure to its JOM equivalent.
BUGS
Please report any bugs to .
SEE ALSO
The real guts of JOM are in JSON::JOM::Object, JSON::JOM::Array and
JSON::JOM::Value.
JSON::JOM::Plugins.
JSON.
AUTHOR
Toby Inkster .
COPYRIGHT
Copyright 2010-2011 Toby Inkster
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.