The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

RSRCHBOY / autobox-JSON-0.0006 / lib / autobox / JSON.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
—
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

              
package autobox::JSON;
$autobox::JSON::VERSION = '0.0006';
use 5.008;
use strict;
use warnings;
use parent 'autobox';
sub import {
    my ($class) = @_;
    $class->SUPER::import(
        HASH => 'autobox::JSON::Ref',
        ARRAY => 'autobox::JSON::Ref',
        STRING => 'autobox::JSON::String',
    );
}
=head1 NAME
autobox::JSON - bringing JSON functions to autobox
=head1 VERSION
version 0.0006
=head1 SYNOPSIS
    use autobox::JSON;
    say {name => 'Jim', age => 34}->encode_json;
    # {"name":"Jim","age":46}
    my $person = '{"name":"Jim","age":46}'->decode_json
    # {name => 'Jim', age => 34}
    my $serialized_person = $person->encode_json;
    # {"name":"Jim","age":46}
    # works on arrays too
    [1, 2, 3, 4, 5]->encode_json;
=head1 METHODS
=head2 encode_json
This method behaves the same as L<JSON/encode_json>.
=head2 encode_json_pretty
This method is identical to L</encode_json>, except that it also "prettifies"
the output, making it easier for us mortals to read.  This is useful
especially when dumping a JSON structure to something reasonable for, say,
debug or other purposes.
It is functionally the same as:
    JSON->new->utf8->canonical->pretty->encode($ref)
=head2 decode_json
This method behaves the same as L<JSON/decode_json>.
=head1 DEPRECIATED METHODS
=head2 to_json (depreciated)
This method behaves the same as L<JSON/to_json>.
This method is depreciated because the JSON documentation itself
prefers encode_json.
=head2 from_json (depreciated)
This method behaves the same as L<JSON/from_json>.
This method is depreciated as the JSON documentation itself
prefers decode_json.
=head1 SEE ALSO
C<autobox> C<JSON> C<autobox::Core>
=head1 AUTHOR
Robin Edwards, E<lt>robin.ge@gmail.comE<gt>
L<http://github.com/robinedwards/>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2011 by Robin Edwards
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.12.3 or,
at your option, any later version of Perl 5 you may have available.
=cut
package autobox::JSON::String;
$autobox::JSON::String::VERSION = '0.0006';
require JSON;
sub from_json { JSON::from_json(shift); }
sub decode_json { JSON::decode_json(shift); }
package autobox::JSON::Ref;
$autobox::JSON::Ref::VERSION = '0.0006';
require JSON;
sub to_json { JSON::to_json(shift); }
sub encode_json { JSON::encode_json(shift); }
sub encode_json_pretty { JSON->new->utf8->canonical->pretty->encode(shift); }
1;