Profile of YAML/PP/Reader.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/YAML/PP/Reader.pm
Statements	Executed 26934 statements in 74.6ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
13456	1	1	37.2ms	67.0ms	YAML::PP::Reader::File::::readlineYAML::PP::Reader::File::readline
13456	1	1	21.3ms	25.6ms	YAML::PP::Reader::File::::CORE:readlineYAML::PP::Reader::File::CORE:readline (opcode)
1	1	1	1.34ms	4.15ms	YAML::PP::Reader::File::::CORE:openYAML::PP::Reader::File::CORE:open (opcode)
1	1	1	24µs	27µs	YAML::PP::Parser::::BEGIN@2.288 YAML::PP::Parser::BEGIN@2.288
1	1	1	15µs	4.17ms	YAML::PP::Reader::File::::open_handleYAML::PP::Reader::File::open_handle
1	1	1	9µs	37µs	YAML::PP::Reader::File::::BEGIN@45YAML::PP::Reader::File::BEGIN@45
1	1	1	8µs	39µs	YAML::PP::Parser::::BEGIN@3.289 YAML::PP::Parser::BEGIN@3.289
1	1	1	7µs	23µs	YAML::PP::Reader::File::::BEGIN@49YAML::PP::Reader::File::BEGIN@49
2	2	2	5µs	5µs	YAML::PP::Reader::::new YAML::PP::Reader::new
0	0	0	0s	0s	YAML::PP::Reader::File::::readYAML::PP::Reader::File::read
0	0	0	0s	0s	YAML::PP::Reader::::input YAML::PP::Reader::input
0	0	0	0s	0s	YAML::PP::Reader::::read YAML::PP::Reader::read
0	0	0	0s	0s	YAML::PP::Reader::::readline YAML::PP::Reader::readline
0	0	0	0s	0s	YAML::PP::Reader::::set_input YAML::PP::Reader::set_input

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					# ABSTRACT: Reader class for YAML::PP representing input data
2	2	29µs	2	30µs	# spent 27µs (24+3) within YAML::PP::Parser::BEGIN@2.288 which was called: # once (24µs+3µs) by YAML::PP::Parser::BEGIN@21 at line 2 use strict; # spent 27µs making 1 call to YAML::PP::Parser::BEGIN@2.288 # spent 3µs making 1 call to strict::import
3	2	282µs	2	70µs	# spent 39µs (8+31) within YAML::PP::Parser::BEGIN@3.289 which was called: # once (8µs+31µs) by YAML::PP::Parser::BEGIN@21 at line 3 use warnings; # spent 39µs making 1 call to YAML::PP::Parser::BEGIN@3.289 # spent 31µs making 1 call to warnings::import
4					package YAML::PP::Reader;
5
6	1	0s			our $VERSION = '0.035'; # VERSION
7
8					sub input { return $_[0]->{input} }
9					sub set_input { $_[0]->{input} = $_[1] }
10
11					# spent 5µs within YAML::PP::Reader::new which was called 2 times, avg 2µs/call: # once (4µs+0s) by YAML::PP::Parser::new at line 27 of YAML/PP/Parser.pm # once (1µs+0s) by YAML::PP::Loader::load_file at line 84 of YAML/PP/Loader.pm sub new {
12	2	0s			my ($class, %args) = @_;
13	2	0s			my $input = delete $args{input};
14	2	11µs			return bless {
15					input => $input,
16					}, $class;
17					}
18
19					sub read {
20					my ($self) = @_;
21					my $pos = pos $self->{input} \|\| 0;
22					my $yaml = substr($self->{input}, $pos);
23					$self->{input} = '';
24					return $yaml;
25					}
26
27					sub readline {
28					my ($self) = @_;
29					unless (length $self->{input}) {
30					return;
31					}
32					if ( $self->{input} =~ m/\G([^\r\n]*(?:\n\|\r\n\|\r\|\z))/g ) {
33					my $line = $1;
34					unless (length $line) {
35					$self->{input} = '';
36					return;
37					}
38					return $line;
39					}
40					return;
41					}
42
43					package YAML::PP::Reader::File;
44
45	2	37µs	2	65µs	# spent 37µs (9+28) within YAML::PP::Reader::File::BEGIN@45 which was called: # once (9µs+28µs) by YAML::PP::Parser::BEGIN@21 at line 45 use Scalar::Util qw/ openhandle /; # spent 37µs making 1 call to YAML::PP::Reader::File::BEGIN@45 # spent 28µs making 1 call to Exporter::import
46
47	1	7µs			our @ISA = qw/ YAML::PP::Reader /;
48
49	2	200µs	2	39µs	# spent 23µs (7+16) within YAML::PP::Reader::File::BEGIN@49 which was called: # once (7µs+16µs) by YAML::PP::Parser::BEGIN@21 at line 49 use Carp qw/ croak /; # spent 23µs making 1 call to YAML::PP::Reader::File::BEGIN@49 # spent 16µs making 1 call to Exporter::import
50
51					# spent 4.17ms (15µs+4.15) within YAML::PP::Reader::File::open_handle which was called: # once (15µs+4.15ms) by YAML::PP::Reader::File::readline at line 74 sub open_handle {
52	1	7µs	1	1µs	if (openhandle( $_[0]->{input} )) { # spent 1µs making 1 call to Scalar::Util::openhandle
53					return $_[0]->{input};
54					}
55					open my $fh, '<:encoding(UTF-8)', $_[0]->{input}
56	3	792µs	5	6.28ms	or croak "Could not open '$_[0]->{input}' for reading: $!"; # spent 4.15ms making 1 call to YAML::PP::Reader::File::CORE:open # spent 1.99ms making 1 call to PerlIO::import # spent 135µs making 1 call to Encode::find_encoding # spent 6µs making 1 call to Encode::Encoding::renew # spent 2µs making 1 call to Encode::Encoding::needs_lines
57	1	4µs			return $fh;
58					}
59
60					sub read {
61					my $fh = $_[0]->{filehandle} \|\|= $_[0]->open_handle;
62					if (wantarray) {
63					my @yaml = <$fh>;
64					return @yaml;
65					}
66					else {
67					local $/;
68					my $yaml = <$fh>;
69					return $yaml;
70					}
71					}
72
73					# spent 67.0ms (37.2+29.7) within YAML::PP::Reader::File::readline which was called 13456 times, avg 5µs/call: # 13456 times (37.2ms+29.7ms) by YAML::PP::Lexer::_fetch_next_line at line 141 of YAML/PP/Lexer.pm, avg 5µs/call sub readline {
74	13456	4.72ms	1	4.17ms	my $fh = $_[0]->{filehandle} \|\|= $_[0]->open_handle; # spent 4.17ms making 1 call to YAML::PP::Reader::File::open_handle
75	13456	68.5ms	14334	30.7ms	return scalar <$fh>; # spent 25.6ms making 13456 calls to YAML::PP::Reader::File::CORE:readline, avg 2µs/call # spent 4.23ms making 439 calls to Encode::utf8::decode, avg 10µs/call # spent 954µs making 439 calls to Encode::Encoding::renewed, avg 2µs/call
76					}
77
78	1	3µs			1;

					# spent 4.15ms (1.34+2.81) within YAML::PP::Reader::File::CORE:open which was called: # once (1.34ms+2.81ms) by YAML::PP::Reader::File::open_handle at line 56 sub YAML::PP::Reader::File::CORE:open; # opcode
					# spent 25.6ms (21.3+4.23) within YAML::PP::Reader::File::CORE:readline which was called 13456 times, avg 2µs/call: # 13456 times (21.3ms+4.23ms) by YAML::PP::Reader::File::readline at line 75, avg 2µs/call sub YAML::PP::Reader::File::CORE:readline; # opcode