JSON::JOM - the JSON Object Model
# 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']
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:
$child
$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'
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.
Please report any bugs to http://rt.cpan.org/.
The real guts of JOM are in JSON::JOM::Object, JSON::JOM::Array and JSON::JOM::Value.
JSON::JOM::Plugins.
JSON.
Toby Inkster <tobyink@cpan.org>.
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.
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.
To install JSON::JOM, copy and paste the appropriate command in to your terminal.
cpanm
cpanm JSON::JOM
CPAN shell
perl -MCPAN -e shell install JSON::JOM
For more information on module installation, please visit the detailed CPAN module installation guide.