← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:36 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/YAML/PP/Schema.pm
StatementsExecuted 575164 statements in 778ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
2094111523ms747msYAML::PP::Schema::::load_scalarYAML::PP::Schema::load_scalar
709991191.2ms91.2msYAML::PP::Schema::::CORE:regcompYAML::PP::Schema::CORE:regcomp (opcode)
710013189.5ms89.5msYAML::PP::Schema::::CORE:matchYAML::PP::Schema::CORE:match (opcode)
69391134.1ms39.3msYAML::PP::Schema::::create_mappingYAML::PP::Schema::create_mapping
285534118.9ms18.9msYAML::PP::Schema::::resolversYAML::PP::Schema::resolvers
645113.80ms4.15msYAML::PP::Schema::::create_sequenceYAML::PP::Schema::create_sequence
581112.51ms4.28msYAML::PP::Schema::::_bool_jsonpp_trueYAML::PP::Schema::_bool_jsonpp_true
1111.95ms2.78msYAML::PP::Schema::::BEGIN@9YAML::PP::Schema::BEGIN@9
408111.70ms2.71msYAML::PP::Schema::::_bool_jsonpp_falseYAML::PP::Schema::_bool_jsonpp_false
1111.11ms1.19msYAML::PP::Schema::::BEGIN@5YAML::PP::Schema::BEGIN@5
28111295µs315µsYAML::PP::Schema::::add_resolverYAML::PP::Schema::add_resolver
2861134µs146µsYAML::PP::Schema::::add_representerYAML::PP::Schema::add_representer
11143µs3.10msYAML::PP::Schema::::load_subschemasYAML::PP::Schema::load_subschemas
11132µs32µsYAML::PP::Schema::::newYAML::PP::Schema::new
11124µs27µsYAML::PP::::BEGIN@1 YAML::PP::BEGIN@1
281112µs12µsYAML::PP::Schema::::representersYAML::PP::Schema::representers
11110µs29µsYAML::PP::Schema::::BEGIN@11YAML::PP::Schema::BEGIN@11
1119µs11µsYAML::PP::Schema::::BEGIN@4YAML::PP::Schema::BEGIN@4
3118µs8µsYAML::PP::Schema::::trueYAML::PP::Schema::true
1118µs8µsYAML::PP::Schema::::yaml_versionYAML::PP::Schema::yaml_version
1114µs28µsYAML::PP::::BEGIN@2 YAML::PP::BEGIN@2
2113µs3µsYAML::PP::Schema::::bool_classYAML::PP::Schema::bool_class
3112µs2µsYAML::PP::Schema::::falseYAML::PP::Schema::false
0000s0sYAML::PP::Schema::::_bool_booleanpm_falseYAML::PP::Schema::_bool_booleanpm_false
0000s0sYAML::PP::Schema::::_bool_booleanpm_trueYAML::PP::Schema::_bool_booleanpm_true
0000s0sYAML::PP::Schema::::_bool_perl_falseYAML::PP::Schema::_bool_perl_false
0000s0sYAML::PP::Schema::::_bool_perl_trueYAML::PP::Schema::_bool_perl_true
0000s0sYAML::PP::Schema::::add_collection_resolverYAML::PP::Schema::add_collection_resolver
0000s0sYAML::PP::Schema::::add_mapping_resolverYAML::PP::Schema::add_mapping_resolver
0000s0sYAML::PP::Schema::::add_sequence_resolverYAML::PP::Schema::add_sequence_resolver
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1232µs230µs
# spent 27µs (24+3) within YAML::PP::BEGIN@1 which was called: # once (24µs+3µs) by YAML::PP::BEGIN@8 at line 1
use strict;
# spent 27µs making 1 call to YAML::PP::BEGIN@1 # spent 3µs making 1 call to strict::import
2224µs252µs
# spent 28µs (4+24) within YAML::PP::BEGIN@2 which was called: # once (4µs+24µs) by YAML::PP::BEGIN@8 at line 2
use warnings;
# spent 28µs making 1 call to YAML::PP::BEGIN@2 # spent 24µs making 1 call to warnings::import
3package YAML::PP::Schema;
4224µs213µs
# spent 11µs (9+2) within YAML::PP::Schema::BEGIN@4 which was called: # once (9µs+2µs) by YAML::PP::BEGIN@8 at line 4
use B;
# spent 11µs making 1 call to YAML::PP::Schema::BEGIN@4 # spent 2µs making 1 call to B::import
52280µs11.19ms
# spent 1.19ms (1.11+77µs) within YAML::PP::Schema::BEGIN@5 which was called: # once (1.11ms+77µs) by YAML::PP::BEGIN@8 at line 5
use Module::Load qw//;
# spent 1.19ms making 1 call to YAML::PP::Schema::BEGIN@5
6
711µsour $VERSION = '0.035'; # VERSION
8
92661µs22.88ms
# spent 2.78ms (1.95+829µs) within YAML::PP::Schema::BEGIN@9 which was called: # once (1.95ms+829µs) by YAML::PP::BEGIN@8 at line 9
use YAML::PP::Common qw/ YAML_PLAIN_SCALAR_STYLE /;
# spent 2.78ms making 1 call to YAML::PP::Schema::BEGIN@9 # spent 93µs making 1 call to Exporter::import
10
1122.42ms248µs
# spent 29µs (10+19) within YAML::PP::Schema::BEGIN@11 which was called: # once (10µs+19µs) by YAML::PP::BEGIN@8 at line 11
use Scalar::Util qw/ blessed /;
# spent 29µs making 1 call to YAML::PP::Schema::BEGIN@11 # spent 19µs making 1 call to Exporter::import
12
13
# spent 32µs within YAML::PP::Schema::new which was called: # once (32µs+0s) by YAML::PP::new at line 55 of YAML/PP.pm
sub new {
1412µs my ($class, %args) = @_;
15
1611µs my $yaml_version = delete $args{yaml_version};
1711µs my $bool = delete $args{boolean};
1810s $bool = 'perl' unless defined $bool;
1910s if (keys %args) {
20 die "Unexpected arguments: " . join ', ', sort keys %args;
21 }
2211µs my $true;
23 my $false;
24 my @bool_class;
2514µs my @bools = split m/,/, $bool;
2611µs for my $b (@bools) {
2712µs if ($b eq '*') {
28 push @bool_class, ('boolean', 'JSON::PP::Boolean');
29 last;
30 }
31 elsif ($b eq 'JSON::PP') {
3211µs require JSON::PP;
3310s $true ||= \&_bool_jsonpp_true;
3410s $false ||= \&_bool_jsonpp_false;
3511µs push @bool_class, 'JSON::PP::Boolean';
36 }
37 elsif ($b eq 'boolean') {
38 require boolean;
39 $true ||= \&_bool_booleanpm_true;
40 $false ||= \&_bool_booleanpm_false;
41 push @bool_class, 'boolean';
42 }
43 elsif ($b eq 'perl') {
44 $true ||= \&_bool_perl_true;
45 $false ||= \&_bool_perl_false;
46 }
47 elsif ($b eq 'perl_experimental') {
48 $true ||= \&_bool_perl_true;
49 $false ||= \&_bool_perl_false;
50 push @bool_class, 'perl_experimental';
51 }
52 else {
53 die "Invalid value for 'boolean': '$b'. Allowed: ('perl', 'boolean', 'JSON::PP')";
54 }
55 }
56
5718µs my %representers = (
58 'undef' => undef,
59 flags => [],
60 equals => {},
61 regex => [],
62 class_equals => {},
63 class_matches => [],
64 class_isa => [],
65 scalarref => undef,
66 refref => undef,
67 coderef => undef,
68 glob => undef,
69 tied_equals => {},
70 );
7116µs my $self = bless {
72 yaml_version => $yaml_version,
73 resolvers => {},
74 representers => \%representers,
75 true => $true,
76 false => $false,
77 bool_class => \@bool_class,
78 }, $class;
7916µs return $self;
80}
81
822855340.9ms
# spent 18.9ms within YAML::PP::Schema::resolvers which was called 28553 times, avg 662ns/call: # 20941 times (13.4ms+0s) by YAML::PP::Schema::load_scalar at line 308, avg 638ns/call # 6939 times (5.20ms+0s) by YAML::PP::Schema::create_mapping at line 392, avg 749ns/call # 645 times (351µs+0s) by YAML::PP::Schema::create_sequence at line 362, avg 544ns/call # 28 times (20µs+0s) by YAML::PP::Schema::add_resolver at line 153, avg 714ns/call
sub resolvers { return $_[0]->{resolvers} }
832831µs
# spent 12µs within YAML::PP::Schema::representers which was called 28 times, avg 429ns/call: # 28 times (12µs+0s) by YAML::PP::Schema::add_representer at line 225, avg 429ns/call
sub representers { return $_[0]->{representers} }
84
8536µs
# spent 8µs within YAML::PP::Schema::true which was called 3 times, avg 3µs/call: # 3 times (8µs+0s) by YAML::PP::Schema::Core::register at line 35 of YAML/PP/Schema/Core.pm, avg 3µs/call
sub true { return $_[0]->{true} }
8636µs
# spent 2µs within YAML::PP::Schema::false which was called 3 times, avg 667ns/call: # 3 times (2µs+0s) by YAML::PP::Schema::Core::register at line 39 of YAML/PP/Schema/Core.pm, avg 667ns/call
sub false { return $_[0]->{false} }
8725µs
# spent 3µs within YAML::PP::Schema::bool_class which was called 2 times, avg 2µs/call: # 2 times (3µs+0s) by YAML::PP::Schema::Core::register at line 98 of YAML/PP/Schema/Core.pm, avg 2µs/call
sub bool_class { return @{ $_[0]->{bool_class} } ? $_[0]->{bool_class} : undef }
8819µs
# spent 8µs within YAML::PP::Schema::yaml_version which was called: # once (8µs+0s) by YAML::PP::Schema::load_subschemas at line 100
sub yaml_version { return $_[0]->{yaml_version} }
89
9012µsmy %LOADED_SCHEMA = (
91 JSON => 1,
92);
9311µsmy %DEFAULT_SCHEMA = (
94 '1.2' => 'Core',
95 '1.1' => 'YAML1_1',
96);
97
98
# spent 3.10ms (43µs+3.06) within YAML::PP::Schema::load_subschemas which was called: # once (43µs+3.06ms) by YAML::PP::new at line 59 of YAML/PP.pm
sub load_subschemas {
9911µs my ($self, @schemas) = @_;
10012µs18µs my $yaml_version = $self->yaml_version;
# spent 8µs making 1 call to YAML::PP::Schema::yaml_version
10111µs my $i = 0;
10217µs while ($i < @schemas) {
10310s my $item = $schemas[ $i ];
10411µs if ($item eq '+') {
105 $item = $DEFAULT_SCHEMA{ $yaml_version };
106 }
10710s $i++;
10814µs11µs if (blessed($item)) {
# spent 1µs making 1 call to Scalar::Util::blessed
109 $item->register(
110 schema => $self,
111 );
112 next;
113 }
11411µs my @options;
11511µs while ($i < @schemas
116 and (
117 $schemas[ $i ] =~ m/^[^A-Za-z]/
118 or
119 $schemas[ $i ] =~ m/^[a-zA-Z0-9]+=/
120 )
121 ) {
122 push @options, $schemas[ $i ];
123 $i++;
124 }
125
12610s my $class;
12719µs13µs if ($item =~ m/^\:(.*)/) {
# spent 3µs making 1 call to YAML::PP::Schema::CORE:match
128 $class = "$1";
129 unless ($class =~ m/\A[A-Za-z0-9_:]+\z/) {
130 die "Module name '$class' is invalid";
131 }
132 Module::Load::load $class;
133 }
134 else {
13511µs $class = "YAML::PP::Schema::$item";
13619µs16µs unless ($class =~ m/\A[A-Za-z0-9_:]+\z/) {
# spent 6µs making 1 call to YAML::PP::Schema::CORE:match
137 die "Module name '$class' is invalid";
138 }
13914µs14µs $LOADED_SCHEMA{ $item } ||= Module::Load::load $class;
# spent 4µs making 1 call to Module::Load::load
140 }
14116µs1806µs $class->register(
# spent 806µs making 1 call to YAML::PP::Schema::Core::register
142 schema => $self,
143 options => \@options,
144 );
145
146 }
147}
148
149
# spent 315µs (295+20) within YAML::PP::Schema::add_resolver which was called 28 times, avg 11µs/call: # 6 times (26µs+4µs) by YAML::PP::Schema::Core::register at line 59 of YAML/PP/Schema/Core.pm, avg 5µs/call # 5 times (151µs+5µs) by YAML::PP::Schema::Core::register at line 31 of YAML/PP/Schema/Core.pm, avg 31µs/call # 3 times (27µs+3µs) by YAML::PP::Schema::Core::register at line 39 of YAML/PP/Schema/Core.pm, avg 10µs/call # 3 times (27µs+1µs) by YAML::PP::Schema::Core::register at line 35 of YAML/PP/Schema/Core.pm, avg 9µs/call # 3 times (14µs+3µs) by YAML::PP::Schema::Core::register at line 67 of YAML/PP/Schema/Core.pm, avg 6µs/call # 3 times (16µs+1µs) by YAML::PP::Schema::Core::register at line 63 of YAML/PP/Schema/Core.pm, avg 6µs/call # once (11µs+1µs) by YAML::PP::Schema::Core::register at line 40 of YAML/PP/Schema/Core.pm # once (7µs+0s) by YAML::PP::Schema::Core::register at line 44 of YAML/PP/Schema/Core.pm # once (5µs+1000ns) by YAML::PP::Schema::Core::register at line 48 of YAML/PP/Schema/Core.pm # once (6µs+0s) by YAML::PP::Schema::Core::register at line 52 of YAML/PP/Schema/Core.pm # once (5µs+1000ns) by YAML::PP::Schema::Core::register at line 70 of YAML/PP/Schema/Core.pm
sub add_resolver {
1502810µs my ($self, %args) = @_;
151289µs my $tag = $args{tag};
152282µs my $rule = $args{match};
1532821µs2820µs my $resolvers = $self->resolvers;
# spent 20µs making 28 calls to YAML::PP::Schema::resolvers, avg 714ns/call
154289µs my ($type, @rule) = @$rule;
155283µs my $implicit = $args{implicit};
156281µs $implicit = 1 unless defined $implicit;
157285µs my $resolver_list = [];
158284µs if ($tag) {
1592810µs if (ref $tag eq 'Regexp') {
160 my $res = $resolvers->{tags} ||= [];
161 push @$res, [ $tag, {} ];
162 push @$resolver_list, $res->[-1]->[1];
163 }
164 else {
1652811µs my $res = $resolvers->{tag}->{ $tag } ||= {};
166289µs push @$resolver_list, $res;
167 }
168 }
169288µs if ($implicit) {
170 push @$resolver_list, $resolvers->{value} ||= {};
171 }
1722862µs for my $res (@$resolver_list) {
1735615µs if ($type eq 'equals') {
174467µs my ($match, $value) = @rule;
1754637µs unless (exists $res->{equals}->{ $match }) {
176 $res->{equals}->{ $match } = $value;
177 }
178467µs next;
179 }
180 elsif ($type eq 'regex') {
18181µs my ($match, $value) = @rule;
18284µs push @{ $res->{regex} }, [ $match => $value ];
183 }
184 elsif ($type eq 'all') {
18520s my ($value) = @rule;
18621µs $res->{all} = $value;
187 }
188 }
189}
190
191sub add_sequence_resolver {
192 my ($self, %args) = @_;
193 return $self->add_collection_resolver(sequence => %args);
194}
195
196sub add_mapping_resolver {
197 my ($self, %args) = @_;
198 return $self->add_collection_resolver(mapping => %args);
199}
200
201sub add_collection_resolver {
202 my ($self, $type, %args) = @_;
203 my $tag = $args{tag};
204 my $implicit = $args{implicit};
205 my $resolvers = $self->resolvers;
206
207 if ($tag and ref $tag eq 'Regexp') {
208 my $res = $resolvers->{ $type }->{tags} ||= [];
209 push @$res, [ $tag, {
210 on_create => $args{on_create},
211 on_data => $args{on_data},
212 } ];
213 }
214 elsif ($tag) {
215 my $res = $resolvers->{ $type }->{tag}->{ $tag } ||= {
216 on_create => $args{on_create},
217 on_data => $args{on_data},
218 };
219 }
220}
221
222
# spent 146µs (134+12) within YAML::PP::Schema::add_representer which was called 28 times, avg 5µs/call: # 23 times (103µs+7µs) by YAML::PP::Schema::Core::register at line 89 of YAML/PP/Schema/Core.pm, avg 5µs/call # once (9µs+0s) by YAML::PP::Schema::Core::register at line 100 of YAML/PP/Schema/Core.pm # once (7µs+2µs) by YAML::PP::Schema::Core::register at line 75 of YAML/PP/Schema/Core.pm # once (8µs+1µs) by YAML::PP::Schema::Core::register at line 83 of YAML/PP/Schema/Core.pm # once (5µs+1000ns) by YAML::PP::Schema::Core::register at line 93 of YAML/PP/Schema/Core.pm # once (2µs+1µs) by YAML::PP::Schema::Core::register at line 79 of YAML/PP/Schema/Core.pm
sub add_representer {
2232814µs my ($self, %args) = @_;
224
2252820µs2812µs my $representers = $self->representers;
# spent 12µs making 28 calls to YAML::PP::Schema::representers, avg 429ns/call
226282µs if (my $flags = $args{flags}) {
22721µs my $rep = $representers->{flags};
22820s push @$rep, \%args;
22924µs return;
230 }
231261µs if (my $regex = $args{regex}) {
23211µs my $rep = $representers->{regex};
23312µs push @$rep, \%args;
23413µs return;
235 }
236250s if (my $regex = $args{class_matches}) {
237 my $rep = $representers->{class_matches};
238 push @$rep, [ $args{class_matches}, $args{code} ];
239 return;
240 }
241254µs if (my $class_equals = $args{class_equals}) {
24211µs if ($] >= 5.036000 and $class_equals eq 'perl_experimental') {
243 $representers->{bool} = {
244 code => $args{code},
245 };
246 return;
247 }
24811µs my $rep = $representers->{class_equals};
249 $rep->{ $class_equals } = {
250 code => $args{code},
25112µs };
25214µs return;
253 }
254243µs if (my $class_isa = $args{class_isa}) {
255 my $rep = $representers->{class_isa};
256 push @$rep, [ $args{class_isa}, $args{code} ];
257 return;
258 }
259241µs if (my $tied_equals = $args{tied_equals}) {
260 my $rep = $representers->{tied_equals};
261 $rep->{ $tied_equals } = {
262 code => $args{code},
263 };
264 return;
265 }
266244µs if (defined(my $equals = $args{equals})) {
267233µs my $rep = $representers->{equals};
268 $rep->{ $equals } = {
269 code => $args{code},
2702325µs };
2712383µs return;
272 }
27310s if (defined(my $scalarref = $args{scalarref})) {
274 $representers->{scalarref} = {
275 code => $args{code},
276 };
277 return;
278 }
27910s if (defined(my $refref = $args{refref})) {
280 $representers->{refref} = {
281 code => $args{code},
282 };
283 return;
284 }
28511µs if (defined(my $coderef = $args{coderef})) {
286 $representers->{coderef} = {
287 code => $args{code},
288 };
289 return;
290 }
29111µs if (defined(my $glob = $args{glob})) {
292 $representers->{glob} = {
293 code => $args{code},
294 };
295 return;
296 }
29710s if (my $undef = $args{undefined}) {
29810s $representers->{undef} = $undef;
29912µs return;
300 }
301}
302
303
# spent 747ms (523+224) within YAML::PP::Schema::load_scalar which was called 20941 times, avg 36µs/call: # 20941 times (523ms+224ms) by YAML::PP::Constructor::scalar_event at line 287 of YAML/PP/Constructor.pm, avg 36µs/call
sub load_scalar {
304209414.50ms my ($self, $constructor, $event) = @_;
305209417.22ms my $tag = $event->{tag};
306209418.02ms my $value = $event->{value};
307
3082094122.3ms2094113.4ms my $resolvers = $self->resolvers;
# spent 13.4ms making 20941 calls to YAML::PP::Schema::resolvers, avg 638ns/call
309209413.08ms my $res;
310209418.41ms if ($tag) {
311 $res = $resolvers->{tag}->{ $tag };
312 if (not $res and my $matches = $resolvers->{tags}) {
313 for my $match (@$matches) {
314 my ($re, $rule) = @$match;
315 if ($tag =~ $re) {
316 $res = $rule;
317 last;
318 }
319 }
320 }
321 }
322 else {
323209415.11ms $res = $resolvers->{value};
3242094113.6ms if ($event->{style} ne YAML_PLAIN_SCALAR_STYLE) {
325 return $value;
326 }
327 }
328
3291888412.0ms if (my $equals = $res->{equals}) {
3301888417.8ms if (exists $equals->{ $value }) {
3311024619µs my $res = $equals->{ $value };
33210243.68ms9896.99ms if (ref $res eq 'CODE') {
# spent 4.28ms making 581 calls to YAML::PP::Schema::_bool_jsonpp_true, avg 7µs/call # spent 2.71ms making 408 calls to YAML::PP::Schema::_bool_jsonpp_false, avg 7µs/call
333 return $res->($constructor, $event);
334 }
3353576µs return $res;
336 }
337 }
338178609.53ms if (my $regex = $res->{regex}) {
3391786010.7ms for my $item (@$regex) {
3407099920.8ms my ($re, $sub) = @$item;
34170999446ms141998181ms my @matches = $value =~ $re;
# spent 91.2ms making 70999 calls to YAML::PP::Schema::CORE:regcomp, avg 1µs/call # spent 89.5ms making 70999 calls to YAML::PP::Schema::CORE:match, avg 1µs/call
3427099930.7ms147364µs if (@matches) {
# spent 364µs making 147 calls to YAML::PP::Schema::JSON::_to_int, avg 2µs/call
343 return $sub->($constructor, $event, \@matches);
344 }
345 }
346 }
347177136.97ms if (my $catch_all = $res->{all}) {
3481771359.8ms1771322.8ms if (ref $catch_all eq 'CODE') {
# spent 22.8ms making 17713 calls to YAML::PP::Schema::Core::__ANON__[YAML/PP/Schema/Core.pm:70], avg 1µs/call
349 return $catch_all->($constructor, $event);
350 }
351 return $catch_all;
352 }
353 return $value;
354}
355
356
# spent 4.15ms (3.80+351µs) within YAML::PP::Schema::create_sequence which was called 645 times, avg 6µs/call: # 645 times (3.80ms+351µs) by YAML::PP::Constructor::sequence_start_event at line 229 of YAML/PP/Constructor.pm, avg 6µs/call
sub create_sequence {
357645289µs my ($self, $constructor, $event) = @_;
358645306µs my $tag = $event->{tag};
359645427µs my $data = [];
36064596µs my $on_data;
361
362645891µs645351µs my $resolvers = $self->resolvers->{sequence};
# spent 351µs making 645 calls to YAML::PP::Schema::resolvers, avg 544ns/call
363645197µs if ($tag) {
364 if (my $equals = $resolvers->{tag}->{ $tag }) {
365 my $on_create = $equals->{on_create};
366 $on_data = $equals->{on_data};
367 $on_create and $data = $on_create->($constructor, $event);
368 return ($data, $on_data);
369 }
370 if (my $matches = $resolvers->{tags}) {
371 for my $match (@$matches) {
372 my ($re, $actions) = @$match;
373 my $on_create = $actions->{on_create};
374 if ($tag =~ $re) {
375 $on_data = $actions->{on_data};
376 $on_create and $data = $on_create->($constructor, $event);
377 return ($data, $on_data);
378 }
379 }
380 }
381 }
382
3836451.24ms return ($data, $on_data);
384}
385
386
# spent 39.3ms (34.1+5.19) within YAML::PP::Schema::create_mapping which was called 6939 times, avg 6µs/call: # 6939 times (34.1ms+5.19ms) by YAML::PP::Constructor::mapping_start_event at line 128 of YAML/PP/Constructor.pm, avg 6µs/call
sub create_mapping {
38769392.22ms my ($self, $constructor, $event) = @_;
38869392.77ms my $tag = $event->{tag};
38969392.70ms my $data = {};
39069391.16ms my $on_data;
391
39269399.23ms69395.20ms my $resolvers = $self->resolvers->{mapping};
# spent 5.20ms making 6939 calls to YAML::PP::Schema::resolvers, avg 749ns/call
39369391.92ms if ($tag) {
394 if (my $equals = $resolvers->{tag}->{ $tag }) {
395 my $on_create = $equals->{on_create};
396 $on_data = $equals->{on_data};
397 $on_create and $data = $on_create->($constructor, $event);
398 return ($data, $on_data);
399 }
400 if (my $matches = $resolvers->{tags}) {
401 for my $match (@$matches) {
402 my ($re, $actions) = @$match;
403 my $on_create = $actions->{on_create};
404 if ($tag =~ $re) {
405 $on_data = $actions->{on_data};
406 $on_create and $data = $on_create->($constructor, $event);
407 return ($data, $on_data);
408 }
409 }
410 }
411 }
412
413693914.2ms return ($data, $on_data);
414}
415
4165812.61ms5811.77ms
# spent 4.28ms (2.51+1.77) within YAML::PP::Schema::_bool_jsonpp_true which was called 581 times, avg 7µs/call: # 581 times (2.51ms+1.77ms) by YAML::PP::Schema::load_scalar at line 332, avg 7µs/call
sub _bool_jsonpp_true { JSON::PP::true() }
# spent 1.77ms making 581 calls to JSON::PP::true, avg 3µs/call
417
418sub _bool_booleanpm_true { boolean::true() }
419
420sub _bool_perl_true { !!1 }
421
4224081.69ms4081.01ms
# spent 2.71ms (1.70+1.01) within YAML::PP::Schema::_bool_jsonpp_false which was called 408 times, avg 7µs/call: # 408 times (1.70ms+1.01ms) by YAML::PP::Schema::load_scalar at line 332, avg 7µs/call
sub _bool_jsonpp_false { JSON::PP::false() }
# spent 1.01ms making 408 calls to JSON::PP::false, avg 2µs/call
423
424sub _bool_booleanpm_false { boolean::false() }
425
426sub _bool_perl_false { !!0 }
427
42816µs1;
429
430__END__
 
# spent 89.5ms within YAML::PP::Schema::CORE:match which was called 71001 times, avg 1µs/call: # 70999 times (89.5ms+0s) by YAML::PP::Schema::load_scalar at line 341, avg 1µs/call # once (6µs+0s) by YAML::PP::Schema::load_subschemas at line 136 # once (3µs+0s) by YAML::PP::Schema::load_subschemas at line 127
sub YAML::PP::Schema::CORE:match; # opcode
# spent 91.2ms within YAML::PP::Schema::CORE:regcomp which was called 70999 times, avg 1µs/call: # 70999 times (91.2ms+0s) by YAML::PP::Schema::load_scalar at line 341, avg 1µs/call
sub YAML::PP::Schema::CORE:regcomp; # 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.