… | |
… | |
84 | |
84 | |
85 | package JSON::XS; |
85 | package JSON::XS; |
86 | |
86 | |
87 | use strict; |
87 | use strict; |
88 | |
88 | |
89 | our $VERSION = '1.53'; |
89 | our $VERSION = '2.0'; |
90 | our @ISA = qw(Exporter); |
90 | our @ISA = qw(Exporter); |
91 | |
91 | |
92 | our @EXPORT = qw(to_json from_json); |
92 | our @EXPORT = qw(to_json from_json); |
93 | |
93 | |
94 | use Exporter; |
94 | use Exporter; |
… | |
… | |
276 | |
276 | |
277 | use Encode; |
277 | use Encode; |
278 | $object = JSON::XS->new->decode (decode "UTF-32LE", $jsontext); |
278 | $object = JSON::XS->new->decode (decode "UTF-32LE", $jsontext); |
279 | |
279 | |
280 | =item $json = $json->pretty ([$enable]) |
280 | =item $json = $json->pretty ([$enable]) |
281 | |
|
|
282 | =item $enabled = $json->get_pretty |
|
|
283 | |
281 | |
284 | This enables (or disables) all of the C<indent>, C<space_before> and |
282 | This enables (or disables) all of the C<indent>, C<space_before> and |
285 | C<space_after> (and in the future possibly more) flags in one call to |
283 | C<space_after> (and in the future possibly more) flags in one call to |
286 | generate the most readable (or most compact) form possible. |
284 | generate the most readable (or most compact) form possible. |
287 | |
285 | |