← Index
NYTProf Performance Profile   « line view »
For split.pl
  Run on Thu Apr 20 02:05:47 2023
Reported on Thu Apr 20 18:31:09 2023

Filename/home/hejohns/perl5/lib/perl5/JSON.pm
StatementsExecuted 532209 statements in 3.36s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
133036212.68s3.66sJSON::::to_json JSON::to_json
111625µs3.40msJSON::::_load_xs JSON::_load_xs
111251µs251µsJSON::::CORE:readline JSON::CORE:readline (opcode)
11136µs2.46msJSON::::__load_xs JSON::__load_xs
11119µs62µsJSON::::from_json JSON::from_json
22215µs119µsJSON::::import JSON::import
1117µs12µsJSON::Backend::PP::::BEGIN@342JSON::Backend::PP::BEGIN@342
1117µs9µsJSON::::BEGIN@4 JSON::BEGIN@4
1116µs6µsJSON::::BEGIN@7 JSON::BEGIN@7
1114µs4µsJSON::::CORE:close JSON::CORE:close (opcode)
1113µs8µsJSON::::BEGIN@6 JSON::BEGIN@6
1112µs2µsJSON::::BEGIN@11 JSON::BEGIN@11
1111µs1µsJSON::::BEGIN@5 JSON::BEGIN@5
1111µs1µsJSON::::CORE:subst JSON::CORE:subst (opcode)
111700ns700nsJSON::::CORE:match JSON::CORE:match (opcode)
0000s0sJSON::Backend::PP::::__ANON__[:366]JSON::Backend::PP::__ANON__[:366]
0000s0sJSON::Backend::PP::::initJSON::Backend::PP::init
0000s0sJSON::Backend::PP::::is_ppJSON::Backend::PP::is_pp
0000s0sJSON::Backend::PP::::is_xsJSON::Backend::PP::is_xs
0000s0sJSON::::__load_pp JSON::__load_pp
0000s0sJSON::::_load_pp JSON::_load_pp
0000s0sJSON::::backend JSON::backend
0000s0sJSON::::boolean JSON::boolean
0000s0sJSON::::false JSON::false
0000s0sJSON::::is_pp JSON::is_pp
0000s0sJSON::::is_xs JSON::is_xs
0000s0sJSON::::jsonToObj JSON::jsonToObj
0000s0sJSON::::null JSON::null
0000s0sJSON::::objToJson JSON::objToJson
0000s0sJSON::::property JSON::property
0000s0sJSON::::pureperl_only_methods JSON::pureperl_only_methods
0000s0sJSON::::require_xs_version JSON::require_xs_version
0000s0sJSON::::true JSON::true
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package JSON;
2
3
4217µs211µs
# spent 9µs (7+2) within JSON::BEGIN@4 which was called: # once (7µs+2µs) by main::BEGIN@21 at line 4
use strict;
# spent 9µs making 1 call to JSON::BEGIN@4 # spent 2µs making 1 call to strict::import
5210µs11µs
# spent 1µs within JSON::BEGIN@5 which was called: # once (1µs+0s) by main::BEGIN@21 at line 5
use Carp ();
# spent 1µs making 1 call to JSON::BEGIN@5
6217µs213µs
# spent 8µs (3+5) within JSON::BEGIN@6 which was called: # once (3µs+5µs) by main::BEGIN@21 at line 6
use Exporter;
# spent 8µs making 1 call to JSON::BEGIN@6 # spent 5µs making 1 call to Exporter::import
7142µs16µs
# spent 6µs within JSON::BEGIN@7 which was called: # once (6µs+0s) by main::BEGIN@21 at line 7
BEGIN { @JSON::ISA = 'Exporter' }
# spent 6µs making 1 call to JSON::BEGIN@7
8
911µs@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);
10
11
# spent 2µs within JSON::BEGIN@11 which was called: # once (2µs+0s) by main::BEGIN@21 at line 15
BEGIN {
121200ns $JSON::VERSION = '4.05';
131300ns $JSON::DEBUG = 0 unless (defined $JSON::DEBUG);
1412µs $JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG };
151876µs12µs}
# spent 2µs making 1 call to JSON::BEGIN@11
16
1711µsmy %RequiredVersion = (
18 'JSON::PP' => '2.27203',
19 'JSON::XS' => '2.34',
20);
21
22# XS and PP common methods
23
2412µsmy @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
3011µsmy @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
351200nsmy @XSOnlyMethods = qw//; # Currently nothing
36
371300nsmy @PublicMethodsSince4_0 = qw/allow_tags/;
381200nsmy @PropertiesSince4_0 = qw/allow_tags/;
39
401600nsmy @PPOnlyMethods = qw/
41 indent_length sort_by
42 allow_singlequote allow_bignum loose allow_barekey escape_slash as_nonblessed
43/; # JSON::PP specific
44
45
46# used in _load_xs and _load_pp ($INSTALL_ONLY is not used currently)
471200nsmy $_INSTALL_DONT_DIE = 1; # When _load_xs fails to load XS, don't die.
481200nsmy $_ALLOW_UNSUPPORTED = 0;
491100nsmy $_UNIV_CONV_BLESSED = 0;
50
51
52# Check the environment variable to decide worker module.
53
541400nsunless ($JSON::Backend) {
551100ns $JSON::DEBUG and Carp::carp("Check used worker module...");
56
571400ns my $backend = exists $ENV{PERL_JSON_BACKEND} ? $ENV{PERL_JSON_BACKEND} : 1;
58
591700ns if ($backend eq '1') {
60 $backend = 'JSON::XS,JSON::PP';
61 }
62 elsif ($backend eq '0') {
63 $backend = 'JSON::PP';
64 }
65 elsif ($backend eq '2') {
66 $backend = 'JSON::XS';
67 }
6815µs11µs $backend =~ s/\s+//g;
# spent 1µs making 1 call to JSON::CORE:subst
69
7011µs my @backend_modules = split /,/, $backend;
711400ns while(my $module = shift @backend_modules) {
7214µs23.40ms if ($module =~ /JSON::XS/) {
# spent 3.40ms making 1 call to JSON::_load_xs # spent 700ns making 1 call to JSON::CORE:match
73 _load_xs($module, @backend_modules ? $_INSTALL_DONT_DIE : 0);
74 }
75 elsif ($module =~ /JSON::PP/) {
76 _load_pp($module);
77 }
78 elsif ($module =~ /JSON::backportPP/) {
79 _load_pp($module);
80 }
81 else {
82 Carp::croak "The value of environmental variable 'PERL_JSON_BACKEND' is invalid.";
83 }
8412µs last if $JSON::Backend;
85 }
86}
87
88
89
# spent 119µs (15+104) within JSON::import which was called 2 times, avg 59µs/call: # once (8µs+60µs) by main::BEGIN@21 at line 21 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/bin/split.pl # once (7µs+44µs) by Gradescope::Translate::BEGIN@18 at line 18 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/lib/Gradescope/Translate.pm
sub import {
902900ns my $pkg = shift;
912500ns my @what_to_export;
92 my $no_export;
93
9421µs for my $tag (@_) {
95 if ($tag eq '-support_by_pp') {
96 if (!$_ALLOW_UNSUPPORTED++) {
97 JSON::Backend::XS
98 ->support_by_pp(@PPOnlyMethods) if ($JSON::Backend->is_xs);
99 }
100 next;
101 }
102 elsif ($tag eq '-no_export') {
103 $no_export++, next;
104 }
105 elsif ( $tag eq '-convert_blessed_universally' ) {
106 my $org_encode = $JSON::Backend->can('encode');
107 eval q|
108 require B;
109 local $^W;
110 no strict 'refs';
111 *{"${JSON::Backend}\::encode"} = sub {
112 # only works with Perl 5.18+
113 local *UNIVERSAL::TO_JSON = sub {
114 my $b_obj = B::svref_2object( $_[0] );
115 return $b_obj->isa('B::HV') ? { %{ $_[0] } }
116 : $b_obj->isa('B::AV') ? [ @{ $_[0] } ]
117 : undef
118 ;
119 };
120 $org_encode->(@_);
121 };
122 | if ( !$_UNIV_CONV_BLESSED++ );
123 next;
124 }
125 push @what_to_export, $tag;
126 }
127
1282400ns return if ($no_export);
129
13028µs221µs __PACKAGE__->export_to_level(1, $pkg, @what_to_export);
# spent 21µs making 2 calls to Exporter::export_to_level, avg 11µs/call
131}
132
133
134# OBSOLETED
135
136sub jsonToObj {
137 my $alternative = 'from_json';
138 if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) {
139 shift @_; $alternative = 'decode';
140 }
141 Carp::carp "'jsonToObj' will be obsoleted. Please use '$alternative' instead.";
142 return JSON::from_json(@_);
143};
144
145sub objToJson {
146 my $alternative = 'to_json';
147 if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) {
148 shift @_; $alternative = 'encode';
149 }
150 Carp::carp "'objToJson' will be obsoleted. Please use '$alternative' instead.";
151 JSON::to_json(@_);
152};
153
154
155# INTERFACES
156
157
# spent 3.66s (2.68+982ms) within JSON::to_json which was called 133036 times, avg 28µs/call: # 133035 times (2.66s+980ms) by main::__ANON__[split.pl:88] at line 87 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/bin/split.pl, avg 27µs/call # once (16.5ms+2.03ms) by main::RUNTIME at line 97 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/bin/split.pl
sub to_json ($@) {
158133036119ms if (
159 ref($_[0]) eq 'JSON'
160 or (@_ > 2 and $_[0] eq 'JSON')
161 ) {
162 Carp::croak "to_json should not be called as a method.";
163 }
1641330361.39s133036456ms my $json = JSON->new;
# spent 456ms making 133036 calls to JSON::XS::new, avg 3µs/call
165
16613303650.9ms if (@_ == 2 and ref $_[1] eq 'HASH') {
1671100ns my $opt = $_[1];
16814µs for my $method (keys %$opt) {
169216.5ms25µs $json->$method( $opt->{$method} );
# spent 4µs making 1 call to JSON::XS::pretty # spent 700ns making 1 call to JSON::XS::canonical
170 }
171 }
172
1731330361.78s266072526ms $json->encode($_[0]);
# spent 445ms making 133036 calls to JSON::XS::encode, avg 3µs/call # spent 81.2ms making 133036 calls to JSON::XS::DESTROY, avg 610ns/call
174}
175
176
177
# spent 62µs (19+44) within JSON::from_json which was called: # once (19µs+44µs) by main::RUNTIME at line 74 of /home/hejohns/documentsNoSync/22f/490/gradescope-utils/bin/split.pl
sub from_json ($@) {
1781700ns if ( ref($_[0]) eq 'JSON' or $_[0] eq 'JSON' ) {
179 Carp::croak "from_json should not be called as a method.";
180 }
181114µs16µs my $json = JSON->new;
# spent 6µs making 1 call to JSON::XS::new
182
1831300ns if (@_ == 2 and ref $_[1] eq 'HASH') {
184 my $opt = $_[1];
185 for my $method (keys %$opt) {
186 $json->$method( $opt->{$method} );
187 }
188 }
189
190147µs238µs return $json->decode( $_[0] );
# spent 38µs making 1 call to JSON::XS::decode # spent 500ns making 1 call to JSON::XS::DESTROY
191}
192
- -
195sub true { $JSON::true }
196
197sub false { $JSON::false }
198
199sub boolean {
200 # might be called as method or as function, so pop() to get the last arg instead of shift() to get the first
201 pop() ? $JSON::true : $JSON::false
202}
203
204sub null { undef; }
205
206
207sub require_xs_version { $RequiredVersion{'JSON::XS'}; }
208
209sub backend {
210 my $proto = shift;
211 $JSON::Backend;
212}
213
214#*module = *backend;
215
216
217sub is_xs {
218 return $_[0]->backend->is_xs;
219}
220
221
222sub is_pp {
223 return $_[0]->backend->is_pp;
224}
225
226
227sub pureperl_only_methods { @PPOnlyMethods; }
228
229
230sub property {
231 my ($self, $name, $value) = @_;
232
233 if (@_ == 1) {
234 my %props;
235 for $name (@Properties) {
236 my $method = 'get_' . $name;
237 if ($name eq 'max_size') {
238 my $value = $self->$method();
239 $props{$name} = $value == 1 ? 0 : $value;
240 next;
241 }
242 $props{$name} = $self->$method();
243 }
244 return \%props;
245 }
246 elsif (@_ > 3) {
247 Carp::croak('property() can take only the option within 2 arguments.');
248 }
249 elsif (@_ == 2) {
250 if ( my $method = $self->can('get_' . $name) ) {
251 if ($name eq 'max_size') {
252 my $value = $self->$method();
253 return $value == 1 ? 0 : $value;
254 }
255 $self->$method();
256 }
257 }
258 else {
259 $self->$name($value);
260 }
261
262}
263
- -
266# INTERNAL
267
268
# spent 2.46ms (36µs+2.42) within JSON::__load_xs which was called: # once (36µs+2.42ms) by JSON::_load_xs at line 291
sub __load_xs {
2691100ns my ($module, $opt) = @_;
270
27110s $JSON::DEBUG and Carp::carp "Load $module.";
2721400ns my $required_version = $RequiredVersion{$module} || '';
273
274128µs eval qq|
# spent 105µs executing statements in string eval
# includes 814µs spent executing 1 call to 1 sub defined therein.
275 use $module $required_version ();
276 |;
277
2781200ns if ($@) {
279 if (defined $opt and $opt & $_INSTALL_DONT_DIE) {
280 $JSON::DEBUG and Carp::carp "Can't load $module...($@)";
281 return 0;
282 }
283 Carp::croak $@;
284 }
2851600ns $JSON::BackendModuleXS = $module;
28612µs return 1;
287}
288
289
# spent 3.40ms (625µs+2.78) within JSON::_load_xs which was called: # once (625µs+2.78ms) by main::BEGIN@21 at line 72
sub _load_xs {
2901400ns my ($module, $opt) = @_;
29111µs12.46ms __load_xs($module, $opt) or return;
# spent 2.46ms making 1 call to JSON::__load_xs
292
2931364µs1251µs my $data = join("", <DATA>); # this code is from Jcode 2.xx.
# spent 251µs making 1 call to JSON::CORE:readline
29417µs14µs close(DATA);
# spent 4µs making 1 call to JSON::CORE:close
2951220µs eval $data;
# spent 351µs executing statements in string eval
# includes 54µs spent executing 3 calls to 8 subs defined therein.
29612µs145µs JSON::Backend::XS->init($module);
# spent 45µs making 1 call to JSON::Backend::XS::init
297
29812µs return 1;
299};
300
301
302sub __load_pp {
303 my ($module, $opt) = @_;
304
305 $JSON::DEBUG and Carp::carp "Load $module.";
306 my $required_version = $RequiredVersion{$module} || '';
307
308 eval qq| use $module $required_version () |;
309
310 if ($@) {
311 if ( $module eq 'JSON::PP' ) {
312 $JSON::DEBUG and Carp::carp "Can't load $module ($@), so try to load JSON::backportPP";
313 $module = 'JSON::backportPP';
314 local $^W; # if PP installed but invalid version, backportPP redefines methods.
315 eval qq| require $module |;
316 }
317 Carp::croak $@ if $@;
318 }
319 $JSON::BackendModulePP = $module;
320 return 1;
321}
322
323sub _load_pp {
324 my ($module, $opt) = @_;
325 __load_pp($module, $opt);
326
327 JSON::Backend::PP->init($module);
328};
329
330#
331# Helper classes for Backend Module (PP)
332#
333
334package JSON::Backend::PP;
335
336sub init {
337 my ($class, $module) = @_;
338
339 # name may vary, but the module should (always) be a JSON::PP
340
341 local $^W;
3422190µs218µs
# spent 12µs (7+5) within JSON::Backend::PP::BEGIN@342 which was called: # once (7µs+5µs) by main::BEGIN@21 at line 342
no strict qw(refs); # this routine may be called after JSON::Backend::XS init was called.
# spent 12µs making 1 call to JSON::Backend::PP::BEGIN@342 # spent 5µs making 1 call to strict::unimport
343 *{"JSON::decode_json"} = \&{"JSON::PP::decode_json"};
344 *{"JSON::encode_json"} = \&{"JSON::PP::encode_json"};
345 *{"JSON::is_bool"} = \&{"JSON::PP::is_bool"};
346
347 $JSON::true = ${"JSON::PP::true"};
348 $JSON::false = ${"JSON::PP::false"};
349
350 push @JSON::Backend::PP::ISA, 'JSON::PP';
351 push @JSON::ISA, $class;
352 $JSON::Backend = $class;
353 $JSON::BackendModule = $module;
354 my $version = ${"$class\::VERSION"} = $module->VERSION;
355 $version =~ s/_//;
356 if ($version < 3.99) {
357 push @XSOnlyMethods, qw/allow_tags get_allow_tags/;
358 } else {
359 push @Properties, 'allow_tags';
360 }
361
362 for my $method (@XSOnlyMethods) {
363 *{"JSON::$method"} = sub {
364 Carp::carp("$method is not supported by $module $version.");
365 $_[0];
366 };
367 }
368
369 return 1;
370}
371
372sub is_xs { 0 };
373sub is_pp { 1 };
374
375#
376# To save memory, the below lines are read only when XS backend is used.
377#
378
379package JSON;
380
381127µs1;
382__DATA__
 
# spent 4µs within JSON::CORE:close which was called: # once (4µs+0s) by JSON::_load_xs at line 294
sub JSON::CORE:close; # opcode
# spent 700ns within JSON::CORE:match which was called: # once (700ns+0s) by main::BEGIN@21 at line 72
sub JSON::CORE:match; # opcode
# spent 251µs within JSON::CORE:readline which was called: # once (251µs+0s) by JSON::_load_xs at line 293
sub JSON::CORE:readline; # opcode
# spent 1µs within JSON::CORE:subst which was called: # once (1µs+0s) by main::BEGIN@21 at line 68
sub JSON::CORE:subst; # opcode
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.