NAME

JSON - parse and convert to JSON (JavaScript Object Notation).

SYNOPSIS

 use JSON;

 $obj = {
    id   => ["foo", "bar", { aa => 'bb'}],
    hoge => 'boge'
 };

 $js  = objToJson($obj);
 $obj = jsonToObj($js);

 # OOP

 my $json = new JSON;

 $js  = $json->objToJson({id => 'foo', method => 'echo', params => ['a','b']});
 $obj = $json->jsonToObj($js);

DESCRIPTION

This module converts between JSON (JavaScript Object Notation) and Perl data structure into each other. For JSON, See to http://www.crockford.com/JSON/.

MAPPING

 JSON {"param" : []}
  => Perl {'param' => []};

 JSON {"param" : {}}
  => Perl {'param' => {}};

 JSON {"param" : "string"}
  => Perl {'param' => 'string'};

 JSON {"param" : null}
  => Perl {'param' => bless( {'value' => undef}, 'JSON::NotString' )};

 JSON {"param" : true}
  => Perl {'param' => bless( {'value' => 'true'}, 'JSON::NotString' )};

 JSON {"param" : false}
  => Perl {'param' => bless( {'value' => 'false'}, 'JSON::NotString' )};

 JSON {"param" : -1.23}
  => Perl {'param' => bless( {'value' => '-1.23'}, 'JSON::NotString' )};

These JSON::NotString objects are overloaded so you don't care about. Perl's undef is converted to 'null'.

AUTOCONVERT

By default $JSON::AUTOCONVERT is true.

Perl {num => 10.02} => JSON {"num" : 10.02} (not {"num" : "10.02"})

But set false value with $JSON::AUTOCONVERT:

Perl {num => 10.02} => JSON {"num" : "10.02"} (not {"num" : 10.02})

You can explicitly sepcify:

 $obj = {
        id     => JSON::Number(10.02),
        bool1  => JSON::True,
        bool2  => JSON::False,
        noval  => JSON::Null,
 };

 $json->objToJson($obj);
 # {"noval" : null, "bool2" : false, "bool1" : true, "id" : 10.02}

JSON::Number() returns undef when an argument invalid format.

Methods

new, objToJson, jsonToObj.

EXPORT

objToJson, jsonToObj.

SEE ALSO

http://www.crockford.com/JSON/ JSON::Parser JSON::Converter

AUTHOR

Makamaka Hannyaharamitu, <makamaka[at]cpan.org>

COPYRIGHT AND LICENSE

Copyright 2005 by Makamaka Hannyaharamitu

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.