Filename | /usr/share/perl5/vendor_perl/JSON.pm |
Statements | Executed 84 statements in 3.08ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
4 | 4 | 1 | 362µs | 476µs | _overrride_overload | JSON::Boolean::
1 | 1 | 1 | 79µs | 2.32ms | _load_xs | JSON::
1 | 1 | 1 | 74µs | 16.4ms | _load_pp | JSON::
1 | 1 | 1 | 32µs | 32µs | _set_module | JSON::
1 | 1 | 1 | 16µs | 16µs | init | JSON::Backend::PP::
1 | 1 | 1 | 15µs | 31µs | BEGIN@4 | JSON::
1 | 1 | 1 | 12µs | 29µs | BEGIN@318 | JSON::
1 | 1 | 1 | 12µs | 27µs | BEGIN@398 | JSON::Backend::PP::
1 | 1 | 1 | 9µs | 91µs | BEGIN@6 | JSON::
1 | 1 | 1 | 6µs | 6µs | BEGIN@9 | JSON::
1 | 1 | 1 | 4µs | 4µs | BEGIN@5 | JSON::
0 | 0 | 0 | 0s | 0s | __ANON__[:401] | JSON::Backend::PP::
0 | 0 | 0 | 0s | 0s | __ANON__[:402] | JSON::Backend::PP::
0 | 0 | 0 | 0s | 0s | __ANON__[:375] | JSON::Boolean::
0 | 0 | 0 | 0s | 0s | __ANON__[:376] | JSON::Boolean::
0 | 0 | 0 | 0s | 0s | __ANON__[:382] | JSON::Boolean::
0 | 0 | 0 | 0s | 0s | __ANON__[:383] | JSON::Boolean::
0 | 0 | 0 | 0s | 0s | __ANON__[:332] | JSON::
0 | 0 | 0 | 0s | 0s | backend | JSON::
0 | 0 | 0 | 0s | 0s | false | JSON::
0 | 0 | 0 | 0s | 0s | from_json | JSON::
0 | 0 | 0 | 0s | 0s | import | JSON::
0 | 0 | 0 | 0s | 0s | is_pp | JSON::
0 | 0 | 0 | 0s | 0s | is_xs | JSON::
0 | 0 | 0 | 0s | 0s | jsonToObj | JSON::
0 | 0 | 0 | 0s | 0s | null | JSON::
0 | 0 | 0 | 0s | 0s | objToJson | JSON::
0 | 0 | 0 | 0s | 0s | property | JSON::
0 | 0 | 0 | 0s | 0s | pureperl_only_methods | JSON::
0 | 0 | 0 | 0s | 0s | require_xs_version | JSON::
0 | 0 | 0 | 0s | 0s | to_json | JSON::
0 | 0 | 0 | 0s | 0s | true | JSON::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package JSON; | ||||
2 | |||||
3 | |||||
4 | 2 | 30µs | 2 | 47µs | # spent 31µs (15+16) within JSON::BEGIN@4 which was called:
# once (15µs+16µs) by Foswiki::Configure::Reporter::BEGIN@9 at line 4 # spent 31µs making 1 call to JSON::BEGIN@4
# spent 16µs making 1 call to strict::import |
5 | 2 | 27µs | 1 | 4µs | # spent 4µs within JSON::BEGIN@5 which was called:
# once (4µs+0s) by Foswiki::Configure::Reporter::BEGIN@9 at line 5 # spent 4µs making 1 call to JSON::BEGIN@5 |
6 | 2 | 81µs | 2 | 173µs | # spent 91µs (9+82) within JSON::BEGIN@6 which was called:
# once (9µs+82µs) by Foswiki::Configure::Reporter::BEGIN@9 at line 6 # spent 91µs making 1 call to JSON::BEGIN@6
# spent 82µs making 1 call to base::import |
7 | 1 | 2µs | @JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json); | ||
8 | |||||
9 | # spent 6µs within JSON::BEGIN@9 which was called:
# once (6µs+0s) by Foswiki::Configure::Reporter::BEGIN@9 at line 13 | ||||
10 | 1 | 500ns | $JSON::VERSION = '2.59'; | ||
11 | 1 | 400ns | $JSON::DEBUG = 0 unless (defined $JSON::DEBUG); | ||
12 | 1 | 6µs | $JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG }; | ||
13 | 1 | 1.66ms | 1 | 6µs | } # spent 6µs making 1 call to JSON::BEGIN@9 |
14 | |||||
15 | 1 | 400ns | my $Module_XS = 'JSON::XS'; | ||
16 | 1 | 200ns | my $Module_PP = 'JSON::PP'; | ||
17 | 1 | 200ns | my $Module_bp = 'JSON::backportPP'; # included in JSON distribution | ||
18 | 1 | 300ns | my $PP_Version = '2.27200'; | ||
19 | 1 | 300ns | my $XS_Version = '2.34'; | ||
20 | |||||
21 | |||||
22 | # XS and PP common methods | ||||
23 | |||||
24 | 1 | 3µs | my @PublicMethods = qw/ | ||
25 | ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref | ||||
26 | allow_blessed convert_blessed filter_json_object filter_json_single_key_object | ||||
27 | shrink max_depth max_size encode decode decode_prefix allow_unknown | ||||
28 | /; | ||||
29 | |||||
30 | 1 | 3µs | my @Properties = qw/ | ||
31 | ascii latin1 utf8 indent space_before space_after relaxed canonical allow_nonref | ||||
32 | allow_blessed convert_blessed shrink max_depth max_size allow_unknown | ||||
33 | /; | ||||
34 | |||||
35 | 1 | 200ns | my @XSOnlyMethods = qw//; # Currently nothing | ||
36 | |||||
37 | 1 | 1µs | my @PPOnlyMethods = qw/ | ||
38 | indent_length sort_by | ||||
39 | allow_singlequote allow_bignum loose allow_barekey escape_slash as_nonblessed | ||||
40 | /; # JSON::PP specific | ||||
41 | |||||
42 | |||||
43 | # used in _load_xs and _load_pp ($INSTALL_ONLY is not used currently) | ||||
44 | 1 | 300ns | my $_INSTALL_DONT_DIE = 1; # When _load_xs fails to load XS, don't die. | ||
45 | 1 | 200ns | my $_INSTALL_ONLY = 2; # Don't call _set_methods() | ||
46 | 1 | 100ns | my $_ALLOW_UNSUPPORTED = 0; | ||
47 | 1 | 200ns | my $_UNIV_CONV_BLESSED = 0; | ||
48 | 1 | 100ns | my $_USSING_bpPP = 0; | ||
49 | |||||
50 | |||||
51 | # Check the environment variable to decide worker module. | ||||
52 | |||||
53 | 1 | 700ns | unless ($JSON::Backend) { | ||
54 | 1 | 100ns | $JSON::DEBUG and Carp::carp("Check used worker module..."); | ||
55 | |||||
56 | 1 | 1µs | my $backend = exists $ENV{PERL_JSON_BACKEND} ? $ENV{PERL_JSON_BACKEND} : 1; | ||
57 | |||||
58 | 1 | 6µs | 2 | 18.7ms | if ($backend eq '1' or $backend =~ /JSON::XS\s*,\s*JSON::PP/) { # spent 16.4ms making 1 call to JSON::_load_pp
# spent 2.32ms making 1 call to JSON::_load_xs |
59 | _load_xs($_INSTALL_DONT_DIE) or _load_pp(); | ||||
60 | } | ||||
61 | elsif ($backend eq '0' or $backend eq 'JSON::PP') { | ||||
62 | _load_pp(); | ||||
63 | } | ||||
64 | elsif ($backend eq '2' or $backend eq 'JSON::XS') { | ||||
65 | _load_xs(); | ||||
66 | } | ||||
67 | elsif ($backend eq 'JSON::backportPP') { | ||||
68 | $_USSING_bpPP = 1; | ||||
69 | _load_pp(); | ||||
70 | } | ||||
71 | else { | ||||
72 | Carp::croak "The value of environmental variable 'PERL_JSON_BACKEND' is invalid."; | ||||
73 | } | ||||
74 | } | ||||
75 | |||||
76 | |||||
77 | sub import { | ||||
78 | my $pkg = shift; | ||||
79 | my @what_to_export; | ||||
80 | my $no_export; | ||||
81 | |||||
82 | for my $tag (@_) { | ||||
83 | if ($tag eq '-support_by_pp') { | ||||
84 | if (!$_ALLOW_UNSUPPORTED++) { | ||||
85 | JSON::Backend::XS | ||||
86 | ->support_by_pp(@PPOnlyMethods) if ($JSON::Backend eq $Module_XS); | ||||
87 | } | ||||
88 | next; | ||||
89 | } | ||||
90 | elsif ($tag eq '-no_export') { | ||||
91 | $no_export++, next; | ||||
92 | } | ||||
93 | elsif ( $tag eq '-convert_blessed_universally' ) { | ||||
94 | eval q| | ||||
95 | require B; | ||||
96 | *UNIVERSAL::TO_JSON = sub { | ||||
97 | my $b_obj = B::svref_2object( $_[0] ); | ||||
98 | return $b_obj->isa('B::HV') ? { %{ $_[0] } } | ||||
99 | : $b_obj->isa('B::AV') ? [ @{ $_[0] } ] | ||||
100 | : undef | ||||
101 | ; | ||||
102 | } | ||||
103 | | if ( !$_UNIV_CONV_BLESSED++ ); | ||||
104 | next; | ||||
105 | } | ||||
106 | push @what_to_export, $tag; | ||||
107 | } | ||||
108 | |||||
109 | return if ($no_export); | ||||
110 | |||||
111 | __PACKAGE__->export_to_level(1, $pkg, @what_to_export); | ||||
112 | } | ||||
113 | |||||
114 | |||||
115 | # OBSOLETED | ||||
116 | |||||
117 | sub jsonToObj { | ||||
118 | my $alternative = 'from_json'; | ||||
119 | if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) { | ||||
120 | shift @_; $alternative = 'decode'; | ||||
121 | } | ||||
122 | Carp::carp "'jsonToObj' will be obsoleted. Please use '$alternative' instead."; | ||||
123 | return JSON::from_json(@_); | ||||
124 | }; | ||||
125 | |||||
126 | sub objToJson { | ||||
127 | my $alternative = 'to_json'; | ||||
128 | if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) { | ||||
129 | shift @_; $alternative = 'encode'; | ||||
130 | } | ||||
131 | Carp::carp "'objToJson' will be obsoleted. Please use '$alternative' instead."; | ||||
132 | JSON::to_json(@_); | ||||
133 | }; | ||||
134 | |||||
135 | |||||
136 | # INTERFACES | ||||
137 | |||||
138 | sub to_json ($@) { | ||||
139 | if ( | ||||
140 | ref($_[0]) eq 'JSON' | ||||
141 | or (@_ > 2 and $_[0] eq 'JSON') | ||||
142 | ) { | ||||
143 | Carp::croak "to_json should not be called as a method."; | ||||
144 | } | ||||
145 | my $json = JSON->new; | ||||
146 | |||||
147 | if (@_ == 2 and ref $_[1] eq 'HASH') { | ||||
148 | my $opt = $_[1]; | ||||
149 | for my $method (keys %$opt) { | ||||
150 | $json->$method( $opt->{$method} ); | ||||
151 | } | ||||
152 | } | ||||
153 | |||||
154 | $json->encode($_[0]); | ||||
155 | } | ||||
156 | |||||
157 | |||||
158 | sub from_json ($@) { | ||||
159 | if ( ref($_[0]) eq 'JSON' or $_[0] eq 'JSON' ) { | ||||
160 | Carp::croak "from_json should not be called as a method."; | ||||
161 | } | ||||
162 | my $json = JSON->new; | ||||
163 | |||||
164 | if (@_ == 2 and ref $_[1] eq 'HASH') { | ||||
165 | my $opt = $_[1]; | ||||
166 | for my $method (keys %$opt) { | ||||
167 | $json->$method( $opt->{$method} ); | ||||
168 | } | ||||
169 | } | ||||
170 | |||||
171 | return $json->decode( $_[0] ); | ||||
172 | } | ||||
173 | |||||
174 | |||||
175 | sub true { $JSON::true } | ||||
176 | |||||
177 | sub false { $JSON::false } | ||||
178 | |||||
179 | sub null { undef; } | ||||
180 | |||||
181 | |||||
182 | sub require_xs_version { $XS_Version; } | ||||
183 | |||||
184 | sub backend { | ||||
185 | my $proto = shift; | ||||
186 | $JSON::Backend; | ||||
187 | } | ||||
188 | |||||
189 | #*module = *backend; | ||||
190 | |||||
191 | |||||
192 | sub is_xs { | ||||
193 | return $_[0]->module eq $Module_XS; | ||||
194 | } | ||||
195 | |||||
196 | |||||
197 | sub is_pp { | ||||
198 | return not $_[0]->xs; | ||||
199 | } | ||||
200 | |||||
201 | |||||
202 | sub pureperl_only_methods { @PPOnlyMethods; } | ||||
203 | |||||
204 | |||||
205 | sub property { | ||||
206 | my ($self, $name, $value) = @_; | ||||
207 | |||||
208 | if (@_ == 1) { | ||||
209 | my %props; | ||||
210 | for $name (@Properties) { | ||||
211 | my $method = 'get_' . $name; | ||||
212 | if ($name eq 'max_size') { | ||||
213 | my $value = $self->$method(); | ||||
214 | $props{$name} = $value == 1 ? 0 : $value; | ||||
215 | next; | ||||
216 | } | ||||
217 | $props{$name} = $self->$method(); | ||||
218 | } | ||||
219 | return \%props; | ||||
220 | } | ||||
221 | elsif (@_ > 3) { | ||||
222 | Carp::croak('property() can take only the option within 2 arguments.'); | ||||
223 | } | ||||
224 | elsif (@_ == 2) { | ||||
225 | if ( my $method = $self->can('get_' . $name) ) { | ||||
226 | if ($name eq 'max_size') { | ||||
227 | my $value = $self->$method(); | ||||
228 | return $value == 1 ? 0 : $value; | ||||
229 | } | ||||
230 | $self->$method(); | ||||
231 | } | ||||
232 | } | ||||
233 | else { | ||||
234 | $self->$name($value); | ||||
235 | } | ||||
236 | |||||
237 | } | ||||
238 | |||||
- - | |||||
241 | # INTERNAL | ||||
242 | |||||
243 | # spent 2.32ms (79µs+2.24) within JSON::_load_xs which was called:
# once (79µs+2.24ms) by Foswiki::Configure::Reporter::BEGIN@9 at line 58 | ||||
244 | 1 | 400ns | my $opt = shift; | ||
245 | |||||
246 | 1 | 100ns | $JSON::DEBUG and Carp::carp "Load $Module_XS."; | ||
247 | |||||
248 | # if called after install module, overload is disable.... why? | ||||
249 | 1 | 1µs | 1 | 239µs | JSON::Boolean::_overrride_overload($Module_XS); # spent 239µs making 1 call to JSON::Boolean::_overrride_overload |
250 | 1 | 2µs | 1 | 234µs | JSON::Boolean::_overrride_overload($Module_PP); # spent 234µs making 1 call to JSON::Boolean::_overrride_overload |
251 | |||||
252 | 1 | 44µs | eval qq| # spent 37µs executing statements in string eval # includes 46µs spent executing 1 call to 1 sub defined therein. | ||
253 | use $Module_XS $XS_Version (); | ||||
254 | |; | ||||
255 | |||||
256 | 1 | 300ns | if ($@) { | ||
257 | 1 | 800ns | if (defined $opt and $opt & $_INSTALL_DONT_DIE) { | ||
258 | 1 | 200ns | $JSON::DEBUG and Carp::carp "Can't load $Module_XS...($@)"; | ||
259 | 1 | 5µs | return 0; | ||
260 | } | ||||
261 | Carp::croak $@; | ||||
262 | } | ||||
263 | |||||
264 | unless (defined $opt and $opt & $_INSTALL_ONLY) { | ||||
265 | _set_module( $JSON::Backend = $Module_XS ); | ||||
266 | my $data = join("", <DATA>); # this code is from Jcode 2.xx. | ||||
267 | close(DATA); | ||||
268 | eval $data; | ||||
269 | JSON::Backend::XS->init; | ||||
270 | } | ||||
271 | |||||
272 | return 1; | ||||
273 | }; | ||||
274 | |||||
275 | |||||
276 | # spent 16.4ms (74µs+16.3) within JSON::_load_pp which was called:
# once (74µs+16.3ms) by Foswiki::Configure::Reporter::BEGIN@9 at line 58 | ||||
277 | 1 | 400ns | my $opt = shift; | ||
278 | 1 | 500ns | my $backend = $_USSING_bpPP ? $Module_bp : $Module_PP; | ||
279 | |||||
280 | 1 | 200ns | $JSON::DEBUG and Carp::carp "Load $backend."; | ||
281 | |||||
282 | # if called after install module, overload is disable.... why? | ||||
283 | 1 | 1µs | 1 | 2µs | JSON::Boolean::_overrride_overload($Module_XS); # spent 2µs making 1 call to JSON::Boolean::_overrride_overload |
284 | 1 | 1µs | 1 | 1µs | JSON::Boolean::_overrride_overload($backend); # spent 1µs making 1 call to JSON::Boolean::_overrride_overload |
285 | |||||
286 | 1 | 1µs | if ( $_USSING_bpPP ) { | ||
287 | eval qq| require $backend |; | ||||
288 | } | ||||
289 | else { | ||||
290 | 1 | 45µs | eval qq| use $backend $PP_Version () |; # spent 129µs executing statements in string eval # includes 9.13ms spent executing 1 call to 1 sub defined therein. | ||
291 | } | ||||
292 | |||||
293 | 1 | 300ns | if ($@) { | ||
294 | if ( $backend eq $Module_PP ) { | ||||
295 | $JSON::DEBUG and Carp::carp "Can't load $Module_PP ($@), so try to load $Module_bp"; | ||||
296 | $_USSING_bpPP++; | ||||
297 | $backend = $Module_bp; | ||||
298 | JSON::Boolean::_overrride_overload($backend); | ||||
299 | local $^W; # if PP installed but invalid version, backportPP redefines methods. | ||||
300 | eval qq| require $Module_bp |; | ||||
301 | } | ||||
302 | Carp::croak $@ if $@; | ||||
303 | } | ||||
304 | |||||
305 | 1 | 26µs | unless (defined $opt and $opt & $_INSTALL_ONLY) { | ||
306 | 1 | 2µs | 1 | 32µs | _set_module( $JSON::Backend = $Module_PP ); # even if backportPP, set $Backend with 'JSON::PP' # spent 32µs making 1 call to JSON::_set_module |
307 | 1 | 4µs | 1 | 16µs | JSON::Backend::PP->init; # spent 16µs making 1 call to JSON::Backend::PP::init |
308 | } | ||||
309 | }; | ||||
310 | |||||
311 | |||||
312 | # spent 32µs within JSON::_set_module which was called:
# once (32µs+0s) by JSON::_load_pp at line 306 | ||||
313 | 1 | 200ns | return if defined $JSON::true; | ||
314 | |||||
315 | 1 | 500ns | my $module = shift; | ||
316 | |||||
317 | 1 | 2µs | local $^W; | ||
318 | 2 | 534µs | 2 | 45µs | # spent 29µs (12+16) within JSON::BEGIN@318 which was called:
# once (12µs+16µs) by Foswiki::Configure::Reporter::BEGIN@9 at line 318 # spent 29µs making 1 call to JSON::BEGIN@318
# spent 16µs making 1 call to strict::unimport |
319 | |||||
320 | 1 | 2µs | $JSON::true = ${"$module\::true"}; | ||
321 | 1 | 800ns | $JSON::false = ${"$module\::false"}; | ||
322 | |||||
323 | 1 | 8µs | push @JSON::ISA, $module; | ||
324 | 1 | 9µs | push @{"$module\::Boolean::ISA"}, qw(JSON::Boolean); | ||
325 | |||||
326 | 1 | 4µs | *{"JSON::is_bool"} = \&{"$module\::is_bool"}; | ||
327 | |||||
328 | 1 | 2µs | for my $method ($module eq $Module_XS ? @PPOnlyMethods : @XSOnlyMethods) { | ||
329 | *{"JSON::$method"} = sub { | ||||
330 | Carp::carp("$method is not supported in $module."); | ||||
331 | $_[0]; | ||||
332 | }; | ||||
333 | } | ||||
334 | |||||
335 | 1 | 6µs | return 1; | ||
336 | } | ||||
337 | |||||
- - | |||||
340 | # | ||||
341 | # JSON Boolean | ||||
342 | # | ||||
343 | |||||
344 | package JSON::Boolean; | ||||
345 | |||||
346 | 1 | 300ns | my %Installed; | ||
347 | |||||
348 | # spent 476µs (362+114) within JSON::Boolean::_overrride_overload which was called 4 times, avg 119µs/call:
# once (179µs+60µs) by JSON::_load_xs at line 249
# once (180µs+54µs) by JSON::_load_xs at line 250
# once (2µs+0s) by JSON::_load_pp at line 283
# once (1µs+0s) by JSON::_load_pp at line 284 | ||||
349 | 4 | 10µs | return if ($Installed{ $_[0] }++); | ||
350 | |||||
351 | 2 | 2µs | my $boolean = $_[0] . '::Boolean'; | ||
352 | |||||
353 | 2 | 340µs | eval sprintf(q| # spent 21µs executing statements in string eval # includes 19µs spent executing 1 call to 3 subs defined therein. # spent 20µs executing statements in string eval # includes 18µs spent executing 1 call to 3 subs defined therein. | ||
354 | package %s; | ||||
355 | use overload ( | ||||
356 | '""' => sub { ${$_[0]} == 1 ? 'true' : 'false' }, | ||||
357 | 'eq' => sub { | ||||
358 | my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]); | ||||
359 | if ($op eq 'true' or $op eq 'false') { | ||||
360 | return "$obj" eq 'true' ? 'true' eq $op : 'false' eq $op; | ||||
361 | } | ||||
362 | else { | ||||
363 | return $obj ? 1 == $op : 0 == $op; | ||||
364 | } | ||||
365 | }, | ||||
366 | ); | ||||
367 | |, $boolean); | ||||
368 | |||||
369 | 2 | 300ns | if ($@) { Carp::croak $@; } | ||
370 | |||||
371 | 2 | 2µs | if ( exists $INC{'JSON/XS.pm'} and $boolean eq 'JSON::XS::Boolean' ) { | ||
372 | local $^W; | ||||
373 | my $true = do { bless \(my $dummy = 1), $boolean }; | ||||
374 | my $false = do { bless \(my $dummy = 0), $boolean }; | ||||
375 | *JSON::XS::true = sub () { $true }; | ||||
376 | *JSON::XS::false = sub () { $false }; | ||||
377 | } | ||||
378 | elsif ( exists $INC{'JSON/PP.pm'} and $boolean eq 'JSON::PP::Boolean' ) { | ||||
379 | local $^W; | ||||
380 | my $true = do { bless \(my $dummy = 1), $boolean }; | ||||
381 | my $false = do { bless \(my $dummy = 0), $boolean }; | ||||
382 | *JSON::PP::true = sub { $true }; | ||||
383 | *JSON::PP::false = sub { $false }; | ||||
384 | } | ||||
385 | |||||
386 | 2 | 9µs | return 1; | ||
387 | } | ||||
388 | |||||
389 | |||||
390 | # | ||||
391 | # Helper classes for Backend Module (PP) | ||||
392 | # | ||||
393 | |||||
394 | package JSON::Backend::PP; | ||||
395 | |||||
396 | # spent 16µs within JSON::Backend::PP::init which was called:
# once (16µs+0s) by JSON::_load_pp at line 307 | ||||
397 | 1 | 1µs | local $^W; | ||
398 | 2 | 150µs | 2 | 42µs | # spent 27µs (12+15) within JSON::Backend::PP::BEGIN@398 which was called:
# once (12µs+15µs) by Foswiki::Configure::Reporter::BEGIN@9 at line 398 # spent 27µs making 1 call to JSON::Backend::PP::BEGIN@398
# spent 15µs making 1 call to strict::unimport |
399 | 1 | 4µs | *{"JSON::decode_json"} = \&{"JSON::PP::decode_json"}; | ||
400 | 1 | 2µs | *{"JSON::encode_json"} = \&{"JSON::PP::encode_json"}; | ||
401 | 1 | 4µs | *{"JSON::PP::is_xs"} = sub { 0 }; | ||
402 | 1 | 3µs | *{"JSON::PP::is_pp"} = sub { 1 }; | ||
403 | 1 | 4µs | return 1; | ||
404 | } | ||||
405 | |||||
406 | # | ||||
407 | # To save memory, the below lines are read only when XS backend is used. | ||||
408 | # | ||||
409 | |||||
410 | package JSON; | ||||
411 | |||||
412 | 1 | 23µs | 1; | ||
413 | __DATA__ |