← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:04 2022

Filename/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/YAML/PP.pm
StatementsExecuted 74 statements in 6.39ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1113.15ms6.52msYAML::PP::::BEGIN@8 YAML::PP::BEGIN@8
1111.54ms8.72msYAML::PP::::BEGIN@11 YAML::PP::BEGIN@11
1111.50ms1.73msYAML::PP::::BEGIN@9 YAML::PP::BEGIN@9
1111.16ms1.27msYAML::PP::Preserve::Hash::::BEGIN@226 YAML::PP::Preserve::Hash::BEGIN@226
1111.10ms1.18msYAML::PP::Preserve::Array::::BEGIN@300 YAML::PP::Preserve::Array::BEGIN@300
1111.07ms22.4msYAML::PP::::BEGIN@10 YAML::PP::BEGIN@10
11150µs2.08msYAML::PP::::new YAML::PP::new
11130µs33µsmain::::BEGIN@2.281 main::BEGIN@2.281
33327µs27µsmain::::CORE:pack main::CORE:pack (opcode)
11115µs45µsYAML::PP::Preserve::Scalar::::BEGIN@377YAML::PP::Preserve::Scalar::BEGIN@377
1118µs197µsYAML::PP::Preserve::Array::::BEGIN@301 YAML::PP::Preserve::Array::BEGIN@301
1118µs5.21sYAML::PP::::load_file YAML::PP::load_file
1117µs25µsYAML::PP::::BEGIN@12 YAML::PP::BEGIN@12
1117µs202µsYAML::PP::Preserve::Hash::::BEGIN@227 YAML::PP::Preserve::Hash::BEGIN@227
1116µs56µsYAML::PP::::BEGIN@15 YAML::PP::BEGIN@15
1116µs25µsYAML::PP::Preserve::Array::::BEGIN@302 YAML::PP::Preserve::Array::BEGIN@302
1116µs33µsYAML::PP::Preserve::Hash::::BEGIN@228 YAML::PP::Preserve::Hash::BEGIN@228
1116µs6µsYAML::PP::::_arg_yaml_version YAML::PP::_arg_yaml_version
1116µs28µsmain::::BEGIN@3.282 main::BEGIN@3.282
1115µs18µsYAML::PP::::BEGIN@13 YAML::PP::BEGIN@13
1114µs4µsYAML::PP::::loader YAML::PP::loader
3313µs3µsYAML::PP::::__ANON__ YAML::PP::__ANON__ (xsub)
1111µs1µsYAML::PP::Preserve::Array::::__ANON__ YAML::PP::Preserve::Array::__ANON__ (xsub)
1111µs1µsYAML::PP::Preserve::Hash::::__ANON__ YAML::PP::Preserve::Hash::__ANON__ (xsub)
1111µs1µsmain::::__ANON__ main::__ANON__ (xsub)
0000s0sYAML::PP::::Dump YAML::PP::Dump
0000s0sYAML::PP::::DumpFile YAML::PP::DumpFile
0000s0sYAML::PP::::Load YAML::PP::Load
0000s0sYAML::PP::::LoadFile YAML::PP::LoadFile
0000s0sYAML::PP::Preserve::Array::::CLEAR YAML::PP::Preserve::Array::CLEAR
0000s0sYAML::PP::Preserve::Array::::DELETE YAML::PP::Preserve::Array::DELETE
0000s0sYAML::PP::Preserve::Array::::EXISTS YAML::PP::Preserve::Array::EXISTS
0000s0sYAML::PP::Preserve::Array::::EXTEND YAML::PP::Preserve::Array::EXTEND
0000s0sYAML::PP::Preserve::Array::::FETCH YAML::PP::Preserve::Array::FETCH
0000s0sYAML::PP::Preserve::Array::::FETCHSIZE YAML::PP::Preserve::Array::FETCHSIZE
0000s0sYAML::PP::Preserve::Array::::PUSH YAML::PP::Preserve::Array::PUSH
0000s0sYAML::PP::Preserve::Array::::SHIFT YAML::PP::Preserve::Array::SHIFT
0000s0sYAML::PP::Preserve::Array::::SPLICE YAML::PP::Preserve::Array::SPLICE
0000s0sYAML::PP::Preserve::Array::::STORE YAML::PP::Preserve::Array::STORE
0000s0sYAML::PP::Preserve::Array::::STORESIZE YAML::PP::Preserve::Array::STORESIZE
0000s0sYAML::PP::Preserve::Array::::TIEARRAY YAML::PP::Preserve::Array::TIEARRAY
0000s0sYAML::PP::Preserve::Array::::UNSHIFT YAML::PP::Preserve::Array::UNSHIFT
0000s0sYAML::PP::Preserve::Array::::_preserve YAML::PP::Preserve::Array::_preserve
0000s0sYAML::PP::Preserve::Hash::::CLEAR YAML::PP::Preserve::Hash::CLEAR
0000s0sYAML::PP::Preserve::Hash::::DELETE YAML::PP::Preserve::Hash::DELETE
0000s0sYAML::PP::Preserve::Hash::::EXISTS YAML::PP::Preserve::Hash::EXISTS
0000s0sYAML::PP::Preserve::Hash::::FETCH YAML::PP::Preserve::Hash::FETCH
0000s0sYAML::PP::Preserve::Hash::::FIRSTKEY YAML::PP::Preserve::Hash::FIRSTKEY
0000s0sYAML::PP::Preserve::Hash::::NEXTKEY YAML::PP::Preserve::Hash::NEXTKEY
0000s0sYAML::PP::Preserve::Hash::::SCALAR YAML::PP::Preserve::Hash::SCALAR
0000s0sYAML::PP::Preserve::Hash::::STORE YAML::PP::Preserve::Hash::STORE
0000s0sYAML::PP::Preserve::Hash::::TIEHASH YAML::PP::Preserve::Hash::TIEHASH
0000s0sYAML::PP::Preserve::Scalar::::aliasYAML::PP::Preserve::Scalar::alias
0000s0sYAML::PP::Preserve::Scalar::::newYAML::PP::Preserve::Scalar::new
0000s0sYAML::PP::Preserve::Scalar::::styleYAML::PP::Preserve::Scalar::style
0000s0sYAML::PP::Preserve::Scalar::::tagYAML::PP::Preserve::Scalar::tag
0000s0sYAML::PP::Preserve::Scalar::::valueYAML::PP::Preserve::Scalar::value
0000s0sYAML::PP::::clone YAML::PP::clone
0000s0sYAML::PP::::default_schema YAML::PP::default_schema
0000s0sYAML::PP::::dump YAML::PP::dump
0000s0sYAML::PP::::dump_file YAML::PP::dump_file
0000s0sYAML::PP::::dump_string YAML::PP::dump_string
0000s0sYAML::PP::::dumper YAML::PP::dumper
0000s0sYAML::PP::::load_string YAML::PP::load_string
0000s0sYAML::PP::::preserved_mapping YAML::PP::preserved_mapping
0000s0sYAML::PP::::preserved_scalar YAML::PP::preserved_scalar
0000s0sYAML::PP::::preserved_sequence YAML::PP::preserved_sequence
0000s0sYAML::PP::::schema YAML::PP::schema
0000s0smain::::RUNTIME main::RUNTIME
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1# ABSTRACT: YAML 1.2 Processor
2236µs236µs
# spent 33µs (30+3) within main::BEGIN@2.281 which was called: # once (30µs+3µs) by main::BEGIN@3 at line 2
use strict;
# spent 33µs making 1 call to main::BEGIN@2.281 # spent 3µs making 1 call to strict::import
3238µs250µs
# spent 28µs (6+22) within main::BEGIN@3.282 which was called: # once (6µs+22µs) by main::BEGIN@3 at line 3
use warnings;
# spent 28µs making 1 call to main::BEGIN@3.282 # spent 22µs making 1 call to warnings::import
4package YAML::PP;
5
610sour $VERSION = '0.035'; # VERSION
7
821.28ms26.52ms
# spent 6.52ms (3.15+3.37) within YAML::PP::BEGIN@8 which was called: # once (3.15ms+3.37ms) by main::BEGIN@3 at line 8
use YAML::PP::Schema;
# spent 6.52ms making 1 call to YAML::PP::BEGIN@8 # spent 1µs making 1 call to YAML::PP::__ANON__
92769µs21.75ms
# spent 1.73ms (1.50+231µs) within YAML::PP::BEGIN@9 which was called: # once (1.50ms+231µs) by main::BEGIN@3 at line 9
use YAML::PP::Schema::JSON;
# spent 1.73ms making 1 call to YAML::PP::BEGIN@9 # spent 12µs making 1 call to Exporter::import
102715µs222.4ms
# spent 22.4ms (1.07+21.3) within YAML::PP::BEGIN@10 which was called: # once (1.07ms+21.3ms) by main::BEGIN@3 at line 10
use YAML::PP::Loader;
# spent 22.4ms making 1 call to YAML::PP::BEGIN@10 # spent 1µs making 1 call to YAML::PP::__ANON__
112337µs28.72ms
# spent 8.72ms (1.54+7.18) within YAML::PP::BEGIN@11 which was called: # once (1.54ms+7.18ms) by main::BEGIN@3 at line 11
use YAML::PP::Dumper;
# spent 8.72ms making 1 call to YAML::PP::BEGIN@11 # spent 1µs making 1 call to YAML::PP::__ANON__
12217µs243µs
# spent 25µs (7+18) within YAML::PP::BEGIN@12 which was called: # once (7µs+18µs) by main::BEGIN@3 at line 12
use Scalar::Util qw/ blessed /;
# spent 25µs making 1 call to YAML::PP::BEGIN@12 # spent 18µs making 1 call to Exporter::import
13215µs231µs
# spent 18µs (5+13) within YAML::PP::BEGIN@13 which was called: # once (5µs+13µs) by main::BEGIN@3 at line 13
use Carp qw/ croak /;
# spent 18µs making 1 call to YAML::PP::BEGIN@13 # spent 13µs making 1 call to Exporter::import
14
152627µs2106µs
# spent 56µs (6+50) within YAML::PP::BEGIN@15 which was called: # once (6µs+50µs) by main::BEGIN@3 at line 15
use base 'Exporter';
# spent 56µs making 1 call to YAML::PP::BEGIN@15 # spent 50µs making 1 call to base::import
1611µsour @EXPORT_OK = qw/ Load LoadFile Dump DumpFile /;
17
1812µsmy %YAML_VERSIONS = ('1.1' => 1, '1.2' => 1);
19
20
21
# spent 2.08ms (50µs+2.03) within YAML::PP::new which was called: # once (50µs+2.03ms) by main::RUNTIME at line 6 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl
sub new {
2213µs my ($class, %args) = @_;
23
2411µs my $bool = delete $args{boolean};
2510s $bool = 'perl' unless defined $bool;
2611µs my $schemas = delete $args{schema} || ['+'];
2710s my $cyclic_refs = delete $args{cyclic_refs} || 'allow';
2811µs my $indent = delete $args{indent};
2911µs my $width = delete $args{width};
3010s my $writer = delete $args{writer};
3111µs my $header = delete $args{header};
3210s my $footer = delete $args{footer};
3310s my $duplicate_keys = delete $args{duplicate_keys};
3412µs16µs my $yaml_version = $class->_arg_yaml_version(delete $args{yaml_version});
# spent 6µs making 1 call to YAML::PP::_arg_yaml_version
3510s my $default_yaml_version = $yaml_version->[0];
3611µs my $version_directive = delete $args{version_directive};
3710s my $preserve = delete $args{preserve};
3811µs my $parser = delete $args{parser};
39 my $emitter = delete $args{emitter} || {
4011µs indent => $indent,
41 width => $width,
42 writer => $writer,
43 };
4410s if (keys %args) {
45 die "Unexpected arguments: " . join ', ', sort keys %args;
46 }
47
4811µs my %schemas;
4912µs for my $v (@$yaml_version) {
5010s my $schema;
5115µs12µs if (blessed($schemas) and $schemas->isa('YAML::PP::Schema')) {
# spent 2µs making 1 call to Scalar::Util::blessed
52 $schema = $schemas;
53 }
54 else {
5513µs127µs $schema = YAML::PP::Schema->new(
# spent 27µs making 1 call to YAML::PP::Schema::new
56 boolean => $bool,
57 yaml_version => $v,
58 );
5912µs11.81ms $schema->load_subschemas(@$schemas);
# spent 1.81ms making 1 call to YAML::PP::Schema::load_subschemas
60 }
6111µs $schemas{ $v } = $schema;
62 }
6311µs my $default_schema = $schemas{ $default_yaml_version };
64
6514µs1114µs my $loader = YAML::PP::Loader->new(
# spent 114µs making 1 call to YAML::PP::Loader::new
66 schemas => \%schemas,
67 cyclic_refs => $cyclic_refs,
68 parser => $parser,
69 default_yaml_version => $default_yaml_version,
70 preserve => $preserve,
71 duplicate_keys => $duplicate_keys,
72 );
7313µs170µs my $dumper = YAML::PP::Dumper->new(
# spent 70µs making 1 call to YAML::PP::Dumper::new
74 schema => $default_schema,
75 emitter => $emitter,
76 header => $header,
77 footer => $footer,
78 version_directive => $version_directive,
79 preserve => $preserve,
80 );
81
8213µs my $self = bless {
83 schema => \%schemas,
84 loader => $loader,
85 dumper => $dumper,
86 }, $class;
8715µs return $self;
88}
89
90sub clone {
91 my ($self) = @_;
92 my $clone = {
93 schema => $self->schema,
94 loader => $self->loader->clone,
95 dumper => $self->dumper->clone,
96 };
97 return bless $clone, ref $self;
98}
99
100
# spent 6µs within YAML::PP::_arg_yaml_version which was called: # once (6µs+0s) by YAML::PP::new at line 34
sub _arg_yaml_version {
10111µs my ($class, $version) = @_;
10212µs my @versions = ('1.2');
10310s if (defined $version) {
104 @versions = ();
105 if (not ref $version) {
106 $version = [$version];
107 }
108 for my $v (@$version) {
109 unless ($YAML_VERSIONS{ $v }) {
110 croak "YAML Version '$v' not supported";
111 }
112 push @versions, $v;
113 }
114 }
11518µs return \@versions;
116}
117
118
119
# spent 4µs within YAML::PP::loader which was called: # once (4µs+0s) by YAML::PP::load_file at line 154
sub loader {
12011µs if (@_ > 1) {
121 $_[0]->{loader} = $_[1]
122 }
12314µs return $_[0]->{loader};
124}
125
126sub dumper {
127 if (@_ > 1) {
128 $_[0]->{dumper} = $_[1]
129 }
130 return $_[0]->{dumper};
131}
132
133sub schema {
134 if (@_ > 1) { $_[0]->{schema}->{'1.2'} = $_[1] }
135 return $_[0]->{schema}->{'1.2'};
136}
137
138sub default_schema {
139 my ($self, %args) = @_;
140 my $schema = YAML::PP::Schema->new(
141 boolean => $args{boolean},
142 );
143 $schema->load_subschemas(qw/ Core /);
144 return $schema;
145}
146
147sub load_string {
148 my ($self, $yaml) = @_;
149 return $self->loader->load_string($yaml);
150}
151
152
# spent 5.21s (8µs+5.21) within YAML::PP::load_file which was called: # once (8µs+5.21s) by main::RUNTIME at line 6 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl
sub load_file {
15310s my ($self, $file) = @_;
15418µs25.21s return $self->loader->load_file($file);
# spent 5.21s making 1 call to YAML::PP::Loader::load_file # spent 4µs making 1 call to YAML::PP::loader
155}
156
157sub dump {
158 my ($self, @data) = @_;
159 return $self->dumper->dump(@data);
160}
161
162sub dump_string {
163 my ($self, @data) = @_;
164 return $self->dumper->dump_string(@data);
165}
166
167sub dump_file {
168 my ($self, $file, @data) = @_;
169 return $self->dumper->dump_file($file, @data);
170}
171
172# legagy interface
173sub Load {
174 my ($yaml) = @_;
175 YAML::PP->new->load_string($yaml);
176}
177
178sub LoadFile {
179 my ($file) = @_;
180 YAML::PP->new->load_file($file);
181}
182
183sub Dump {
184 my (@data) = @_;
185 YAML::PP->new->dump_string(@data);
186}
187
188sub DumpFile {
189 my ($file, @data) = @_;
190 YAML::PP->new->dump_file($file, @data);
191}
192
193sub preserved_scalar {
194 my ($self, $value, %args) = @_;
195 my $scalar = YAML::PP::Preserve::Scalar->new(
196 value => $value,
197 %args,
198 );
199 return $scalar;
200}
201
202sub preserved_mapping {
203 my ($self, $hash, %args) = @_;
204 my $data = {};
205 tie %$data, 'YAML::PP::Preserve::Hash';
206 %$data = %$hash;
207 my $t = tied %$data;
208 $t->{style} = $args{style};
209 $t->{alias} = $args{alias};
210 return $data;
211}
212
213sub preserved_sequence {
214 my ($self, $array, %args) = @_;
215 my $data = [];
216 tie @$data, 'YAML::PP::Preserve::Array';
217 push @$data, @$array;
218 my $t = tied @$data;
219 $t->{style} = $args{style};
220 $t->{alias} = $args{alias};
221 return $data;
222}
223
224package YAML::PP::Preserve::Hash;
225# experimental
2262786µs21.27ms
# spent 1.27ms (1.16+112µs) within YAML::PP::Preserve::Hash::BEGIN@226 which was called: # once (1.16ms+112µs) by main::BEGIN@3 at line 226
use Tie::Hash;
# spent 1.27ms making 1 call to YAML::PP::Preserve::Hash::BEGIN@226 # spent 1µs making 1 call to YAML::PP::Preserve::Hash::__ANON__
227243µs2397µs
# spent 202µs (7+195) within YAML::PP::Preserve::Hash::BEGIN@227 which was called: # once (7µs+195µs) by main::BEGIN@3 at line 227
use base qw/ Tie::StdHash /;
# spent 202µs making 1 call to YAML::PP::Preserve::Hash::BEGIN@227 # spent 195µs making 1 call to base::import
2282271µs260µs
# spent 33µs (6+27) within YAML::PP::Preserve::Hash::BEGIN@228 which was called: # once (6µs+27µs) by main::BEGIN@3 at line 228
use Scalar::Util qw/ reftype blessed /;
# spent 33µs making 1 call to YAML::PP::Preserve::Hash::BEGIN@228 # spent 27µs making 1 call to Exporter::import
229
230sub TIEHASH {
231 my ($class, %args) = @_;
232 my $self = bless {
233 keys => [keys %args],
234 data => { %args },
235 }, $class;
236}
237
238sub STORE {
239 my ($self, $key, $val) = @_;
240 my $keys = $self->{keys};
241 unless (exists $self->{data}->{ $key }) {
242 push @$keys, $key;
243 }
244 if (ref $val and not blessed($val)) {
245 if (reftype($val) eq 'HASH' and not tied %$val) {
246 tie %$val, 'YAML::PP::Preserve::Hash', %$val;
247 }
248 elsif (reftype($val) eq 'ARRAY' and not tied @$val) {
249 tie @$val, 'YAML::PP::Preserve::Array', @$val;
250 }
251 }
252 $self->{data}->{ $key } = $val;
253}
254
255sub FIRSTKEY {
256 my ($self) = @_;
257 return $self->{keys}->[0];
258}
259
260sub NEXTKEY {
261 my ($self, $last) = @_;
262 my $keys = $self->{keys};
263 for my $i (0 .. $#$keys) {
264 if ("$keys->[ $i ]" eq "$last") {
265 return $keys->[ $i + 1 ];
266 }
267 }
268 return;
269}
270
271sub FETCH {
272 my ($self, $key) = @_;
273 my $val = $self->{data}->{ $key };
274}
275
276sub DELETE {
277 my ($self, $key) = @_;
278 @{ $self->{keys} } = grep { "$_" ne "$key" } @{ $self->{keys} };
279 delete $self->{data}->{ $key };
280}
281
282sub EXISTS {
283 my ($self, $key) = @_;
284 return exists $self->{data}->{ $key };
285}
286
287sub CLEAR {
288 my ($self) = @_;
289 $self->{keys} = [];
290 $self->{data} = {};
291}
292
293sub SCALAR {
294 my ($self) = @_;
295 return scalar %{ $self->{data} };
296}
297
298package YAML::PP::Preserve::Array;
299# experimental
3002458µs21.18ms
# spent 1.18ms (1.10+79µs) within YAML::PP::Preserve::Array::BEGIN@300 which was called: # once (1.10ms+79µs) by main::BEGIN@3 at line 300
use Tie::Array;
# spent 1.18ms making 1 call to YAML::PP::Preserve::Array::BEGIN@300 # spent 1µs making 1 call to YAML::PP::Preserve::Array::__ANON__
301227µs2386µs
# spent 197µs (8+189) within YAML::PP::Preserve::Array::BEGIN@301 which was called: # once (8µs+189µs) by main::BEGIN@3 at line 301
use base qw/ Tie::StdArray /;
# spent 197µs making 1 call to YAML::PP::Preserve::Array::BEGIN@301 # spent 189µs making 1 call to base::import
3022718µs244µs
# spent 25µs (6+19) within YAML::PP::Preserve::Array::BEGIN@302 which was called: # once (6µs+19µs) by main::BEGIN@3 at line 302
use Scalar::Util qw/ reftype blessed /;
# spent 25µs making 1 call to YAML::PP::Preserve::Array::BEGIN@302 # spent 19µs making 1 call to Exporter::import
303
304sub TIEARRAY {
305 my ($class, @items) = @_;
306 my $self = bless {
307 data => [@items],
308 }, $class;
309 return $self;
310}
311
312sub FETCH {
313 my ($self, $i) = @_;
314 return $self->{data}->[ $i ];
315}
316sub FETCHSIZE {
317 my ($self) = @_;
318 return $#{ $self->{data} } + 1;
319}
320
321sub _preserve {
322 my ($val) = @_;
323 if (ref $val and not blessed($val)) {
324 if (reftype($val) eq 'HASH' and not tied %$val) {
325 tie %$val, 'YAML::PP::Preserve::Hash', %$val;
326 }
327 elsif (reftype($val) eq 'ARRAY' and not tied @$val) {
328 tie @$val, 'YAML::PP::Preserve::Array', @$val;
329 }
330 }
331 return $val;
332}
333
334sub STORE {
335 my ($self, $i, $val) = @_;
336 _preserve($val);
337 $self->{data}->[ $i ] = $val;
338}
339sub PUSH {
340 my ($self, @args) = @_;
341 push @{ $self->{data} }, map { _preserve $_ } @args;
342}
343sub STORESIZE {
344 my ($self, $i) = @_;
345 $#{ $self->{data} } = $i - 1;
346}
347sub DELETE {
348 my ($self, $i) = @_;
349 delete $self->{data}->[ $i ];
350}
351sub EXISTS {
352 my ($self, $i) = @_;
353 return exists $self->{data}->[ $i ];
354}
355sub CLEAR {
356 my ($self) = @_;
357 $self->{data} = [];
358}
359sub SHIFT {
360 my ($self) = @_;
361 shift @{ $self->{data} };
362}
363sub UNSHIFT {
364 my ($self, @args) = @_;
365 unshift @{ $self->{data} }, map { _preserve $_ } @args;
366}
367sub SPLICE {
368 my ($self, $offset, $length, @args) = @_;
369 splice @{ $self->{data} }, $offset, $length, map { _preserve $_ } @args;
370}
371sub EXTEND {}
372
373
374package YAML::PP::Preserve::Scalar;
375
376use overload
37710s
# spent 45µs (15+30) within YAML::PP::Preserve::Scalar::BEGIN@377 which was called: # once (15µs+30µs) by main::BEGIN@3 at line 381
fallback => 1,
378 '+' => \&value,
379 '""' => \&value,
380 'bool' => \&value,
3811175µs275µs ;
# spent 45µs making 1 call to YAML::PP::Preserve::Scalar::BEGIN@377 # spent 30µs making 1 call to overload::import
382sub new {
383 my ($class, %args) = @_;
384 my $self = {
385 %args,
386 };
387 bless $self, $class;
388}
389sub value { $_[0]->{value} }
390sub tag { $_[0]->{tag} }
391sub style { $_[0]->{style} || 0 }
392sub alias { $_[0]->{alias} }
393
39416µs1;
395
396__END__
 
# spent 1µs within YAML::PP::Preserve::Array::__ANON__ which was called: # once (1µs+0s) by YAML::PP::Preserve::Array::BEGIN@300 at line 300
sub YAML::PP::Preserve::Array::__ANON__; # xsub
# spent 1µs within YAML::PP::Preserve::Hash::__ANON__ which was called: # once (1µs+0s) by YAML::PP::Preserve::Hash::BEGIN@226 at line 226
sub YAML::PP::Preserve::Hash::__ANON__; # xsub
# spent 3µs within YAML::PP::__ANON__ which was called 3 times, avg 1µs/call: # once (1µs+0s) by YAML::PP::BEGIN@8 at line 8 # once (1µs+0s) by YAML::PP::BEGIN@11 at line 11 # once (1µs+0s) by YAML::PP::BEGIN@10 at line 10
sub YAML::PP::__ANON__; # xsub
# spent 27µs within main::CORE:pack which was called 3 times, avg 9µs/call: # once (19µs+0s) by IO::Compress::Gzip::BEGIN@15 at line 145 of IO/Compress/Gzip/Constants.pm # once (6µs+0s) by Method::Generate::Accessor::BEGIN@8 at line 23 of Sub/Quote.pm # once (2µs+0s) by Mojo::Util::BEGIN@22 at line 53 of Unicode/Normalize.pm
sub main::CORE:pack; # opcode
# spent 1µs within main::__ANON__ which was called: # once (1µs+0s) by main::BEGIN@2 at line 2 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl
sub main::__ANON__; # xsub
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.