| … | |
… | |
| 104 | use common::sense; |
104 | use common::sense; |
| 105 | |
105 | |
| 106 | our $VERSION = 2.34; |
106 | our $VERSION = 2.34; |
| 107 | our @ISA = qw(Exporter); |
107 | our @ISA = qw(Exporter); |
| 108 | |
108 | |
| 109 | our @EXPORT = qw(encode_json decode_json to_json from_json); |
109 | our @EXPORT = qw(encode_json decode_json); |
| 110 | |
|
|
| 111 | sub to_json($) { |
|
|
| 112 | require Carp; |
|
|
| 113 | Carp::croak ("JSON::XS::to_json has been renamed to encode_json, either downgrade to pre-2.0 versions of JSON::XS or rename the call"); |
|
|
| 114 | } |
|
|
| 115 | |
|
|
| 116 | sub from_json($) { |
|
|
| 117 | require Carp; |
|
|
| 118 | Carp::croak ("JSON::XS::from_json has been renamed to decode_json, either downgrade to pre-2.0 versions of JSON::XS or rename the call"); |
|
|
| 119 | } |
|
|
| 120 | |
110 | |
| 121 | use Exporter; |
111 | use Exporter; |
| 122 | use XSLoader; |
112 | use XSLoader; |
| 123 | |
113 | |
| 124 | =head1 FUNCTIONAL INTERFACE |
114 | =head1 FUNCTIONAL INTERFACE |
| … | |
… | |
| 667 | |
657 | |
| 668 | See SECURITY CONSIDERATIONS, below, for more info on why this is useful. |
658 | See SECURITY CONSIDERATIONS, below, for more info on why this is useful. |
| 669 | |
659 | |
| 670 | =item $json_text = $json->encode ($perl_scalar) |
660 | =item $json_text = $json->encode ($perl_scalar) |
| 671 | |
661 | |
| 672 | Converts the given Perl data structure (a simple scalar or a reference |
662 | Converts the given Perl value or data structure to its JSON |
| 673 | to a hash or array) to its JSON representation. Simple scalars will be |
663 | representation. Croaks on error. |
| 674 | converted into JSON string or number sequences, while references to arrays |
|
|
| 675 | become JSON arrays and references to hashes become JSON objects. Undefined |
|
|
| 676 | Perl values (e.g. C<undef>) become JSON C<null> values. Neither C<true> |
|
|
| 677 | nor C<false> values will be generated. |
|
|
| 678 | |
664 | |
| 679 | =item $perl_scalar = $json->decode ($json_text) |
665 | =item $perl_scalar = $json->decode ($json_text) |
| 680 | |
666 | |
| 681 | The opposite of C<encode>: expects a JSON text and tries to parse it, |
667 | The opposite of C<encode>: expects a JSON text and tries to parse it, |
| 682 | returning the resulting simple scalar or reference. Croaks on error. |
668 | returning the resulting simple scalar or reference. Croaks on error. |
| 683 | |
|
|
| 684 | JSON numbers and strings become simple Perl scalars. JSON arrays become |
|
|
| 685 | Perl arrayrefs and JSON objects become Perl hashrefs. C<true> becomes |
|
|
| 686 | C<1>, C<false> becomes C<0> and C<null> becomes C<undef>. |
|
|
| 687 | |
669 | |
| 688 | =item ($perl_scalar, $characters) = $json->decode_prefix ($json_text) |
670 | =item ($perl_scalar, $characters) = $json->decode_prefix ($json_text) |
| 689 | |
671 | |
| 690 | This works like the C<decode> method, but instead of raising an exception |
672 | This works like the C<decode> method, but instead of raising an exception |
| 691 | when there is trailing garbage after the first JSON object, it will |
673 | when there is trailing garbage after the first JSON object, it will |
