← Index
NYTProf Performance Profile   « line view »
For Makefile.PL
  Run on Sun Mar 1 16:04:44 2015
Reported on Sun Mar 1 16:09:02 2015

FilenameC:/tmp64ng/perl/vendor/lib/Portable/LoadYaml.pm
StatementsExecuted 2103 statements in 15.6ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
992115.6ms15.6msPortable::LoadYaml::::_load_scalarPortable::LoadYaml::_load_scalar
1110s0sPortable::LoadYaml::::BEGIN@5Portable::LoadYaml::BEGIN@5
1110s0sPortable::LoadYaml::::BEGIN@6Portable::LoadYaml::BEGIN@6
1110s0sPortable::LoadYaml::::BEGIN@7Portable::LoadYaml::BEGIN@7
1110s0sPortable::LoadYaml::::BEGIN@78Portable::LoadYaml::BEGIN@78
1110s0sPortable::LoadYaml::::CORE:closePortable::LoadYaml::CORE:close (opcode)
1110s0sPortable::LoadYaml::::CORE:ftereadPortable::LoadYaml::CORE:fteread (opcode)
1110s0sPortable::LoadYaml::::CORE:ftfilePortable::LoadYaml::CORE:ftfile (opcode)
1110s0sPortable::LoadYaml::::CORE:ftisPortable::LoadYaml::CORE:ftis (opcode)
9061710s0sPortable::LoadYaml::::CORE:matchPortable::LoadYaml::CORE:match (opcode)
1110s0sPortable::LoadYaml::::CORE:openPortable::LoadYaml::CORE:open (opcode)
5510s0sPortable::LoadYaml::::CORE:qrPortable::LoadYaml::CORE:qr (opcode)
1110s0sPortable::LoadYaml::::CORE:readlinePortable::LoadYaml::CORE:readline (opcode)
473310s0sPortable::LoadYaml::::CORE:regcompPortable::LoadYaml::CORE:regcomp (opcode)
586610s0sPortable::LoadYaml::::CORE:substPortable::LoadYaml::CORE:subst (opcode)
1110s0sPortable::LoadYaml::::_load_arrayPortable::LoadYaml::_load_array
1110s15.6msPortable::LoadYaml::::_load_filePortable::LoadYaml::_load_file
6210s15.6msPortable::LoadYaml::::_load_hashPortable::LoadYaml::_load_hash (recurses: max depth 1, inclusive time 15.6ms)
1110s15.6msPortable::LoadYaml::::_load_stringPortable::LoadYaml::_load_string
0000s0sPortable::LoadYaml::::_unquote_doublePortable::LoadYaml::_unquote_double
32110s0sPortable::LoadYaml::::_unquote_singlePortable::LoadYaml::_unquote_single
1110s15.6msPortable::LoadYaml::::load_filePortable::LoadYaml::load_file
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Portable::LoadYaml;
2
3### UGLY HACK: these functions where completely copied from Parse::CPAN::Meta
4
520s10s
# spent 0s within Portable::LoadYaml::BEGIN@5 which was called: # once (0s+0s) by Portable::BEGIN@54 at line 5
use 5.008;
# spent 0s making 1 call to Portable::LoadYaml::BEGIN@5
620s20s
# spent 0s within Portable::LoadYaml::BEGIN@6 which was called: # once (0s+0s) by Portable::BEGIN@54 at line 6
use strict;
# spent 0s making 1 call to Portable::LoadYaml::BEGIN@6 # spent 0s making 1 call to strict::import
720s20s
# spent 0s within Portable::LoadYaml::BEGIN@7 which was called: # once (0s+0s) by Portable::BEGIN@54 at line 7
use warnings;
# spent 0s making 1 call to Portable::LoadYaml::BEGIN@7 # spent 0s making 1 call to warnings::import
8
910sour $VERSION = '1.22';
10
11
# spent 15.6ms (0s+15.6) within Portable::LoadYaml::load_file which was called: # once (0s+15.6ms) by Portable::default at line 206 of Portable.pm
sub load_file {
1210s my $file = shift;
1310s115.6ms my $self = __PACKAGE__->_load_file($file);
# spent 15.6ms making 1 call to Portable::LoadYaml::_load_file
1410s return $self->[-1];
15}
16
17#####################################################################
18# Constants
19
20# Printed form of the unprintable characters in the lowest range
21# of ASCII characters, listed by ASCII ordinal position.
2210smy @UNPRINTABLE = qw(
23 0 x01 x02 x03 x04 x05 x06 a
24 b t n v f r x0E x0F
25 x10 x11 x12 x13 x14 x15 x16 x17
26 x18 x19 x1A e x1C x1D x1E x1F
27);
28
29# Printable characters for escapes
3010smy %UNESCAPES = (
31 0 => "\x00", z => "\x00", N => "\x85",
32 a => "\x07", b => "\x08", t => "\x09",
33 n => "\x0a", v => "\x0b", f => "\x0c",
34 r => "\x0d", e => "\x1b", '\\' => '\\',
35);
36
37# These 3 values have special meaning when unquoted and using the
38# default YAML schema. They need quotes if they are strings.
3910smy %QUOTE = map { $_ => 1 } qw{
40 null true false
41};
42
43# The commented out form is simpler, but overloaded the Perl regex
44# engine due to recursion and backtracking problems on strings
45# larger than 32,000ish characters. Keep it for reference purposes.
46# qr/\"((?:\\.|[^\"])*)\"/
4710s10smy $re_capture_double_quoted = qr/\"([^\\"]*(?:\\.[^\\"]*)*)\"/;
# spent 0s making 1 call to Portable::LoadYaml::CORE:qr
4810s10smy $re_capture_single_quoted = qr/\'([^\']*(?:\'\'[^\']*)*)\'/;
# spent 0s making 1 call to Portable::LoadYaml::CORE:qr
49# unquoted re gets trailing space that needs to be stripped
5010s10smy $re_capture_unquoted_key = qr/([^:]+(?::+\S[^:]*)*)(?=\s*\:(?:\s+|$))/;
# spent 0s making 1 call to Portable::LoadYaml::CORE:qr
5110s10smy $re_trailing_comment = qr/(?:\s+\#.*)?/;
# spent 0s making 1 call to Portable::LoadYaml::CORE:qr
5210s10smy $re_key_value_separator = qr/\s*:(?:\s+(?:\#.*)?|$)/;
# spent 0s making 1 call to Portable::LoadYaml::CORE:qr
53
54###
55# Loader functions:
56
57# Create an object from a file
58
# spent 15.6ms (0s+15.6) within Portable::LoadYaml::_load_file which was called: # once (0s+15.6ms) by Portable::LoadYaml::load_file at line 13
sub _load_file {
5910s my $class = ref $_[0] ? ref shift : shift;
60
61 # Check the file
6210s my $file = shift or $class->_error( 'You did not specify a file name' );
6310s10s $class->_error( "File '$file' does not exist" )
# spent 0s making 1 call to Portable::LoadYaml::CORE:ftis
64 unless -e $file;
6510s10s $class->_error( "'$file' is a directory, not a file" )
# spent 0s making 1 call to Portable::LoadYaml::CORE:ftfile
66 unless -f _;
6710s10s $class->_error( "Insufficient permissions to read '$file'" )
# spent 0s making 1 call to Portable::LoadYaml::CORE:fteread
68 unless -r _;
69
70 # Open unbuffered
7110s10s open( my $fh, "<:unix", $file );
# spent 0s making 1 call to Portable::LoadYaml::CORE:open
7210s unless ( $fh ) {
73 $class->_error("Failed to open file '$file': $!");
74 }
75
76 # slurp the contents
7710s my $contents = eval {
7820s20s
# spent 0s within Portable::LoadYaml::BEGIN@78 which was called: # once (0s+0s) by Portable::BEGIN@54 at line 78
use warnings FATAL => 'utf8';
# spent 0s making 1 call to Portable::LoadYaml::BEGIN@78 # spent 0s making 1 call to warnings::import
7910s local $/;
80 <$fh>
8110s10s };
# spent 0s making 1 call to Portable::LoadYaml::CORE:readline
8210s if ( my $err = $@ ) {
83 $class->_error("Error reading from file '$file': $err");
84 }
85
86 # close the file (release the lock)
8710s10s unless ( close $fh ) {
# spent 0s making 1 call to Portable::LoadYaml::CORE:close
88 $class->_error("Failed to close file '$file': $!");
89 }
90
9110s115.6ms $class->_load_string( $contents );
# spent 15.6ms making 1 call to Portable::LoadYaml::_load_string
92}
93
94# Create an object from a string
95
# spent 15.6ms (0s+15.6) within Portable::LoadYaml::_load_string which was called: # once (0s+15.6ms) by Portable::LoadYaml::_load_file at line 91
sub _load_string {
9610s my $class = ref $_[0] ? ref shift : shift;
9710s my $self = bless [], $class;
9810s my $string = $_[0];
9910s eval {
10010s unless ( defined $string ) {
101 die \"Did not provide a string to load";
102 }
103
104 # Check if Perl has it marked as characters, but it's internally
105 # inconsistent. E.g. maybe latin1 got read on a :utf8 layer
10610s10s if ( utf8::is_utf8($string) && ! utf8::valid($string) ) {
# spent 0s making 1 call to utf8::is_utf8
107 die \<<'...';
108Read an invalid UTF-8 string (maybe mixed UTF-8 and 8-bit character set).
109Did you decode with lax ":utf8" instead of strict ":encoding(UTF-8)"?
110...
111 }
112
113 # Ensure Unicode character semantics, even for 0x80-0xff
11410s10s utf8::upgrade($string);
# spent 0s making 1 call to utf8::upgrade
115
116 # Check for and strip any leading UTF-8 BOM
11710s10s $string =~ s/^\x{FEFF}//;
# spent 0s making 1 call to Portable::LoadYaml::CORE:subst
118
119 # Check for some special cases
12010s return $self unless length $string;
121
122 # Split the file into lines
1231070s1060s my @lines = grep { ! /^\s*(?:\#.*)?\z/ }
# spent 0s making 106 calls to Portable::LoadYaml::CORE:match, avg 0s/call
124 split /(?:\015{1,2}\012|\015|\012)/, $string;
125
126 # Strip the initial YAML header
12710s10s @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ and shift @lines;
# spent 0s making 1 call to Portable::LoadYaml::CORE:match
128
129 # A nibbling parser
13010s my $in_document = 0;
13110s while ( @lines ) {
132 # Do we have a document header?
13310s10s if ( $lines[0] =~ /^---\s*(?:(.+)\s*)?\z/ ) {
# spent 0s making 1 call to Portable::LoadYaml::CORE:match
134 # Handle scalar documents
13510s shift @lines;
13610s if ( defined $1 and $1 !~ /^(?:\#.+|\%YAML[: ][\d\.]+)\z/ ) {
137 push @$self,
138 $self->_load_scalar( "$1", [ undef ], \@lines );
139 next;
140 }
14110s $in_document = 1;
142 }
143
14410s30s if ( ! @lines or $lines[0] =~ /^(?:---|\.\.\.)/ ) {
# spent 0s making 3 calls to Portable::LoadYaml::CORE:match, avg 0s/call
145 # A naked document
146 push @$self, undef;
147 while ( @lines and $lines[0] !~ /^---/ ) {
148 shift @lines;
149 }
150 $in_document = 0;
151
152 # XXX The final '-+$' is to look for -- which ends up being an
153 # error later.
154 } elsif ( ! $in_document && @$self ) {
155 # only the first document can be explicit
156 die \"failed to classify the line '$lines[0]'";
157 } elsif ( $lines[0] =~ /^\s*\-(?:\s|$|-+$)/ ) {
158 # An array at the root
159 my $document = [ ];
160 push @$self, $document;
161 $self->_load_array( $document, [ 0 ], \@lines );
162
163 } elsif ( $lines[0] =~ /^(\s*)\S/ ) {
164 # A hash at the root
16510s my $document = { };
16610s push @$self, $document;
16710s115.6ms $self->_load_hash( $document, [ length($1) ], \@lines );
# spent 15.6ms making 1 call to Portable::LoadYaml::_load_hash
168
169 } else {
170 # Shouldn't get here. @lines have whitespace-only lines
171 # stripped, and previous match is a line with any
172 # non-whitespace. So this clause should only be reachable via
173 # a perlbug where \s is not symmetric with \S
174
175 # uncoverable statement
176 die \"failed to classify the line '$lines[0]'";
177 }
178 }
179 };
18010s if ( ref $@ eq 'SCALAR' ) {
181 $self->_error(${$@});
182 } elsif ( $@ ) {
183 $self->_error($@);
184 }
185
18610s return $self;
187}
188
189
# spent 0s within Portable::LoadYaml::_unquote_single which was called 32 times, avg 0s/call: # 32 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 218, avg 0s/call
sub _unquote_single {
190320s my ($self, $string) = @_;
191320s return '' unless length $string;
19280s80s $string =~ s/\'\'/\'/g;
# spent 0s making 8 calls to Portable::LoadYaml::CORE:subst, avg 0s/call
19380s return $string;
194}
195
196sub _unquote_double {
197 my ($self, $string) = @_;
198 return '' unless length $string;
199 $string =~ s/\\"/"/g;
200 $string =~
201 s{\\([Nnever\\fartz0b]|x([0-9a-fA-F]{2}))}
202 {(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}}gex;
203 return $string;
204}
205
206# Load a YAML scalar string to the actual Perl scalar
207
# spent 15.6ms within Portable::LoadYaml::_load_scalar which was called 99 times, avg 158µs/call: # 97 times (15.6ms+0s) by Portable::LoadYaml::_load_hash at line 396, avg 161µs/call # 2 times (0s+0s) by Portable::LoadYaml::_load_array at line 325, avg 0s/call
sub _load_scalar {
208990s my ($self, $string, $indent, $lines) = @_;
209
210 # Trim trailing whitespace
211990s990s $string =~ s/\s*\z//;
# spent 0s making 99 calls to Portable::LoadYaml::CORE:subst, avg 0s/call
212
213 # Explitic null/undef
214990s return undef if $string eq '~';
215
216 # Single quote
217980s1960s if ( $string =~ /^$re_capture_single_quoted$re_trailing_comment\z/ ) {
# spent 0s making 98 calls to Portable::LoadYaml::CORE:match, avg 0s/call # spent 0s making 98 calls to Portable::LoadYaml::CORE:regcomp, avg 0s/call
218320s320s return $self->_unquote_single($1);
# spent 0s making 32 calls to Portable::LoadYaml::_unquote_single, avg 0s/call
219 }
220
221 # Double quote.
222660s1320s if ( $string =~ /^$re_capture_double_quoted$re_trailing_comment\z/ ) {
# spent 0s making 66 calls to Portable::LoadYaml::CORE:match, avg 0s/call # spent 0s making 66 calls to Portable::LoadYaml::CORE:regcomp, avg 0s/call
223 return $self->_unquote_double($1);
224 }
225
226 # Special cases
227660s660s if ( $string =~ /^[\'\"!&]/ ) {
# spent 0s making 66 calls to Portable::LoadYaml::CORE:match, avg 0s/call
228 die \"does not support a feature in line '$string'";
229 }
2306615.6ms660s return {} if $string =~ /^{}(?:\s+\#.*)?\z/;
# spent 0s making 66 calls to Portable::LoadYaml::CORE:match, avg 0s/call
231660s660s return [] if $string =~ /^\[\](?:\s+\#.*)?\z/;
# spent 0s making 66 calls to Portable::LoadYaml::CORE:match, avg 0s/call
232
233 # Regular unquoted string
234660s660s if ( $string !~ /^[>|]/ ) {
# spent 0s making 66 calls to Portable::LoadYaml::CORE:match, avg 0s/call
235660s1320s die \"found illegal characters in plain scalar: '$string'"
# spent 0s making 132 calls to Portable::LoadYaml::CORE:match, avg 0s/call
236 if $string =~ /^(?:-(?:\s|$)|[\@\%\`])/ or
237 $string =~ /:(?:\s|$)/;
238660s660s $string =~ s/\s+#.*\z//;
# spent 0s making 66 calls to Portable::LoadYaml::CORE:subst, avg 0s/call
239660s return $string;
240 }
241
242 # Error
243 die \"failed to find multi-line scalar content" unless @$lines;
244
245 # Check the indent depth
246 $lines->[0] =~ /^(\s*)/;
247 $indent->[-1] = length("$1");
248 if ( defined $indent->[-2] and $indent->[-1] <= $indent->[-2] ) {
249 die \"found bad indenting in line '$lines->[0]'";
250 }
251
252 # Pull the lines
253 my @multiline = ();
254 while ( @$lines ) {
255 $lines->[0] =~ /^(\s*)/;
256 last unless length($1) >= $indent->[-1];
257 push @multiline, substr(shift(@$lines), length($1));
258 }
259
260 my $j = (substr($string, 0, 1) eq '>') ? ' ' : "\n";
261 my $t = (substr($string, 1, 1) eq '-') ? '' : "\n";
262 return join( $j, @multiline ) . $t;
263}
264
265# Load an array
266
# spent 0s within Portable::LoadYaml::_load_array which was called: # once (0s+0s) by Portable::LoadYaml::_load_hash at line 410
sub _load_array {
26710s my ($self, $array, $indent, $lines) = @_;
268
26910s while ( @$lines ) {
270 # Check for a new document
27120s20s if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
# spent 0s making 2 calls to Portable::LoadYaml::CORE:match, avg 0s/call
272 while ( @$lines and $lines->[0] !~ /^---/ ) {
273 shift @$lines;
274 }
275 return 1;
276 }
277
278 # Check the indent level
27920s20s $lines->[0] =~ /^(\s*)/;
# spent 0s making 2 calls to Portable::LoadYaml::CORE:match, avg 0s/call
28020s if ( length($1) < $indent->[-1] ) {
281 return 1;
282 } elsif ( length($1) > $indent->[-1] ) {
283 die \"found bad indenting in line '$lines->[0]'";
284 }
285
28620s60s if ( $lines->[0] =~ /^(\s*\-\s+)[^\'\"]\S*\s*:(?:\s+|$)/ ) {
# spent 0s making 6 calls to Portable::LoadYaml::CORE:match, avg 0s/call
287 # Inline nested hash
288 my $indent2 = length("$1");
289 $lines->[0] =~ s/-/ /;
290 push @$array, { };
291 $self->_load_hash( $array->[-1], [ @$indent, $indent2 ], $lines );
292
293 } elsif ( $lines->[0] =~ /^\s*\-\s*\z/ ) {
294 shift @$lines;
295 unless ( @$lines ) {
296 push @$array, undef;
297 return 1;
298 }
299 if ( $lines->[0] =~ /^(\s*)\-/ ) {
300 my $indent2 = length("$1");
301 if ( $indent->[-1] == $indent2 ) {
302 # Null array entry
303 push @$array, undef;
304 } else {
305 # Naked indenter
306 push @$array, [ ];
307 $self->_load_array(
308 $array->[-1], [ @$indent, $indent2 ], $lines
309 );
310 }
311
312 } elsif ( $lines->[0] =~ /^(\s*)\S/ ) {
313 push @$array, { };
314 $self->_load_hash(
315 $array->[-1], [ @$indent, length("$1") ], $lines
316 );
317
318 } else {
319 die \"failed to classify line '$lines->[0]'";
320 }
321
322 } elsif ( $lines->[0] =~ /^\s*\-(\s*)(.+?)\s*\z/ ) {
323 # Array entry with a value
32420s shift @$lines;
32520s20s push @$array, $self->_load_scalar(
# spent 0s making 2 calls to Portable::LoadYaml::_load_scalar, avg 0s/call
326 "$2", [ @$indent, undef ], $lines
327 );
328
329 } elsif ( defined $indent->[-2] and $indent->[-1] == $indent->[-2] ) {
330 # This is probably a structure like the following...
331 # ---
332 # foo:
333 # - list
334 # bar: value
335 #
336 # ... so lets return and let the hash parser handle it
337 return 1;
338
339 } else {
340 die \"failed to classify line '$lines->[0]'";
341 }
342 }
343
34410s return 1;
345}
346
347# Load a hash
348
# spent 15.6ms (0s+15.6) within Portable::LoadYaml::_load_hash which was called 6 times, avg 2.60ms/call: # 5 times (0s+0s) by Portable::LoadYaml::_load_hash at line 420, avg 0s/call # once (0s+15.6ms) by Portable::LoadYaml::_load_string at line 167
sub _load_hash {
34960s my ($self, $hash, $indent, $lines) = @_;
350
35160s while ( @$lines ) {
352 # Check for a new document
3531070s1070s if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
# spent 0s making 107 calls to Portable::LoadYaml::CORE:match, avg 0s/call
354 while ( @$lines and $lines->[0] !~ /^---/ ) {
355 shift @$lines;
356 }
357 return 1;
358 }
359
360 # Check the indent level
3611070s1070s $lines->[0] =~ /^(\s*)/;
# spent 0s making 107 calls to Portable::LoadYaml::CORE:match, avg 0s/call
3621070s if ( length($1) < $indent->[-1] ) {
363 return 1;
364 } elsif ( length($1) > $indent->[-1] ) {
365 die \"found bad indenting in line '$lines->[0]'";
366 }
367
368 # Find the key
3691030s my $key;
370
371 # Quoted keys
3721030s6180s if ( $lines->[0] =~
# spent 0s making 309 calls to Portable::LoadYaml::CORE:regcomp, avg 0s/call # spent 0s making 309 calls to Portable::LoadYaml::CORE:subst, avg 0s/call
373 s/^\s*$re_capture_single_quoted$re_key_value_separator//
374 ) {
375 $key = $self->_unquote_single($1);
376 }
377 elsif ( $lines->[0] =~
378 s/^\s*$re_capture_double_quoted$re_key_value_separator//
379 ) {
380 $key = $self->_unquote_double($1);
381 }
382 elsif ( $lines->[0] =~
383 s/^\s*$re_capture_unquoted_key$re_key_value_separator//
384 ) {
3851030s $key = $1;
3861030s1030s $key =~ s/\s+$//;
# spent 0s making 103 calls to Portable::LoadYaml::CORE:subst, avg 0s/call
387 }
388 elsif ( $lines->[0] =~ /^\s*\?/ ) {
389 die \"does not support a feature in line '$lines->[0]'";
390 }
391 else {
392 die \"failed to classify line '$lines->[0]'";
393 }
394
395 # Do we have a value?
3961030s9715.6ms if ( length $lines->[0] ) {
# spent 15.6ms making 97 calls to Portable::LoadYaml::_load_scalar, avg 161µs/call
397 # Yes
398 $hash->{$key} = $self->_load_scalar(
399 shift(@$lines), [ @$indent, undef ], $lines
400 );
401 } else {
402 # An indent
40360s shift @$lines;
40460s unless ( @$lines ) {
405 $hash->{$key} = undef;
406 return 1;
407 }
40860s110s if ( $lines->[0] =~ /^(\s*)-/ ) {
# spent 0s making 11 calls to Portable::LoadYaml::CORE:match, avg 0s/call
40910s $hash->{$key} = [];
41010s10s $self->_load_array(
# spent 0s making 1 call to Portable::LoadYaml::_load_array
411 $hash->{$key}, [ @$indent, length($1) ], $lines
412 );
413 } elsif ( $lines->[0] =~ /^(\s*)./ ) {
41450s my $indent2 = length("$1");
41550s if ( $indent->[-1] >= $indent2 ) {
416 # Null hash entry
417 $hash->{$key} = undef;
418 } else {
41950s $hash->{$key} = {};
42050s50s $self->_load_hash(
# spent 15.6ms making 5 calls to Portable::LoadYaml::_load_hash, avg 3.12ms/call, recursion: max depth 1, sum of overlapping time 15.6ms
421 $hash->{$key}, [ @$indent, length($1) ], $lines
422 );
423 }
424 }
425 }
426 }
427
42820s return 1;
429}
430
43110s1;
 
# spent 0s within Portable::LoadYaml::CORE:close which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 87
sub Portable::LoadYaml::CORE:close; # opcode
# spent 0s within Portable::LoadYaml::CORE:fteread which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 67
sub Portable::LoadYaml::CORE:fteread; # opcode
# spent 0s within Portable::LoadYaml::CORE:ftfile which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 65
sub Portable::LoadYaml::CORE:ftfile; # opcode
# spent 0s within Portable::LoadYaml::CORE:ftis which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 63
sub Portable::LoadYaml::CORE:ftis; # opcode
# spent 0s within Portable::LoadYaml::CORE:match which was called 906 times, avg 0s/call: # 132 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 235, avg 0s/call # 107 times (0s+0s) by Portable::LoadYaml::_load_hash at line 353, avg 0s/call # 107 times (0s+0s) by Portable::LoadYaml::_load_hash at line 361, avg 0s/call # 106 times (0s+0s) by Portable::LoadYaml::_load_string at line 123, avg 0s/call # 98 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 217, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 230, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 222, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 231, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 234, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 227, avg 0s/call # 11 times (0s+0s) by Portable::LoadYaml::_load_hash at line 408, avg 0s/call # 6 times (0s+0s) by Portable::LoadYaml::_load_array at line 286, avg 0s/call # 3 times (0s+0s) by Portable::LoadYaml::_load_string at line 144, avg 0s/call # 2 times (0s+0s) by Portable::LoadYaml::_load_array at line 271, avg 0s/call # 2 times (0s+0s) by Portable::LoadYaml::_load_array at line 279, avg 0s/call # once (0s+0s) by Portable::LoadYaml::_load_string at line 127 # once (0s+0s) by Portable::LoadYaml::_load_string at line 133
sub Portable::LoadYaml::CORE:match; # opcode
# spent 0s within Portable::LoadYaml::CORE:open which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 71
sub Portable::LoadYaml::CORE:open; # opcode
# spent 0s within Portable::LoadYaml::CORE:qr which was called 5 times, avg 0s/call: # once (0s+0s) by Portable::BEGIN@54 at line 51 # once (0s+0s) by Portable::BEGIN@54 at line 48 # once (0s+0s) by Portable::BEGIN@54 at line 47 # once (0s+0s) by Portable::BEGIN@54 at line 50 # once (0s+0s) by Portable::BEGIN@54 at line 52
sub Portable::LoadYaml::CORE:qr; # opcode
# spent 0s within Portable::LoadYaml::CORE:readline which was called: # once (0s+0s) by Portable::LoadYaml::_load_file at line 81
sub Portable::LoadYaml::CORE:readline; # opcode
# spent 0s within Portable::LoadYaml::CORE:regcomp which was called 473 times, avg 0s/call: # 309 times (0s+0s) by Portable::LoadYaml::_load_hash at line 372, avg 0s/call # 98 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 217, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 222, avg 0s/call
sub Portable::LoadYaml::CORE:regcomp; # opcode
# spent 0s within Portable::LoadYaml::CORE:subst which was called 586 times, avg 0s/call: # 309 times (0s+0s) by Portable::LoadYaml::_load_hash at line 372, avg 0s/call # 103 times (0s+0s) by Portable::LoadYaml::_load_hash at line 386, avg 0s/call # 99 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 211, avg 0s/call # 66 times (0s+0s) by Portable::LoadYaml::_load_scalar at line 238, avg 0s/call # 8 times (0s+0s) by Portable::LoadYaml::_unquote_single at line 192, avg 0s/call # once (0s+0s) by Portable::LoadYaml::_load_string at line 117
sub Portable::LoadYaml::CORE:subst; # opcode
Report produced by the NYTProf 5.07 Perl profiler, developed by Tim Bunce and Adam Kaplan.