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 82.3ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
13456	1	1	39.3ms	73.4ms	YAML::PP::Reader::File::::readlineYAML::PP::Reader::File::readline
13456	1	1	26.4ms	30.8ms	YAML::PP::Reader::File::::CORE:readlineYAML::PP::Reader::File::CORE:readline (opcode)
1	1	1	453µs	3.23ms	YAML::PP::Reader::File::::CORE:openYAML::PP::Reader::File::CORE:open (opcode)
1	1	1	36µs	40µs	YAML::PP::Parser::::BEGIN@2.289 YAML::PP::Parser::BEGIN@2.289
1	1	1	24µs	3.26ms	YAML::PP::Reader::File::::open_handleYAML::PP::Reader::File::open_handle
1	1	1	17µs	71µs	YAML::PP::Reader::File::::BEGIN@49YAML::PP::Reader::File::BEGIN@49
1	1	1	13µs	43µs	YAML::PP::Reader::File::::BEGIN@45YAML::PP::Reader::File::BEGIN@45
1	1	1	8µs	48µs	YAML::PP::Parser::::BEGIN@3.290 YAML::PP::Parser::BEGIN@3.290
2	2	2	7µs	7µ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	32µs	2	44µs	# spent 40µs (36+4) within YAML::PP::Parser::BEGIN@2.289 which was called: # once (36µs+4µs) by YAML::PP::Parser::BEGIN@21 at line 2 use strict; # spent 40µs making 1 call to YAML::PP::Parser::BEGIN@2.289 # spent 4µs making 1 call to strict::import
3	2	278µs	2	88µs	# spent 48µs (8+40) within YAML::PP::Parser::BEGIN@3.290 which was called: # once (8µs+40µs) by YAML::PP::Parser::BEGIN@21 at line 3 use warnings; # spent 48µs making 1 call to YAML::PP::Parser::BEGIN@3.290 # spent 40µs making 1 call to warnings::import
4					package YAML::PP::Reader;
5
6	1	1µs			our $VERSION = '0.035'; # VERSION
7
8					sub input { return $_[0]->{input} }
9					sub set_input { $_[0]->{input} = $_[1] }
10
11					# spent 7µs within YAML::PP::Reader::new which was called 2 times, avg 4µs/call: # once (5µs+0s) by YAML::PP::Parser::new at line 27 of YAML/PP/Parser.pm # once (2µ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	9µ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	64µs	2	73µs	# spent 43µs (13+30) within YAML::PP::Reader::File::BEGIN@45 which was called: # once (13µs+30µs) by YAML::PP::Parser::BEGIN@21 at line 45 use Scalar::Util qw/ openhandle /; # spent 43µs making 1 call to YAML::PP::Reader::File::BEGIN@45 # spent 30µs making 1 call to Exporter::import
46
47	1	14µs			our @ISA = qw/ YAML::PP::Reader /;
48
49	2	392µs	2	125µs	# spent 71µs (17+54) within YAML::PP::Reader::File::BEGIN@49 which was called: # once (17µs+54µs) by YAML::PP::Parser::BEGIN@21 at line 49 use Carp qw/ croak /; # spent 71µs making 1 call to YAML::PP::Reader::File::BEGIN@49 # spent 54µs making 1 call to Exporter::import
50
51					# spent 3.26ms (24µs+3.23) within YAML::PP::Reader::File::open_handle which was called: # once (24µs+3.23ms) by YAML::PP::Reader::File::readline at line 74 sub open_handle {
52	1	9µs	1	2µs	if (openhandle( $_[0]->{input} )) { # spent 2µs making 1 call to Scalar::Util::openhandle
53					return $_[0]->{input};
54					}
55					open my $fh, '<:encoding(UTF-8)', $_[0]->{input}
56	3	900µs	5	5.39ms	or croak "Could not open '$_[0]->{input}' for reading: $!"; # spent 3.23ms making 1 call to YAML::PP::Reader::File::CORE:open # spent 1.76ms making 1 call to PerlIO::import # spent 389µs making 1 call to Encode::find_encoding # spent 8µs making 1 call to Encode::Encoding::renew # spent 1µs making 1 call to Encode::Encoding::needs_lines
57	1	5µ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 73.4ms (39.3+34.1) within YAML::PP::Reader::File::readline which was called 13456 times, avg 5µs/call: # 13456 times (39.3ms+34.1ms) by YAML::PP::Lexer::_fetch_next_line at line 141 of YAML/PP/Lexer.pm, avg 5µs/call sub readline {
74	13456	4.77ms	1	3.26ms	my $fh = $_[0]->{filehandle} \|\|= $_[0]->open_handle; # spent 3.26ms making 1 call to YAML::PP::Reader::File::open_handle
75	13456	75.8ms	14334	36.3ms	return scalar <$fh>; # spent 30.8ms making 13456 calls to YAML::PP::Reader::File::CORE:readline, avg 2µs/call # spent 4.47ms making 439 calls to Encode::utf8::decode, avg 10µs/call # spent 984µs making 439 calls to Encode::Encoding::renewed, avg 2µs/call
76					}
77
78	1	6µs			1;

					# spent 3.23ms (453µs+2.78) within YAML::PP::Reader::File::CORE:open which was called: # once (453µs+2.78ms) by YAML::PP::Reader::File::open_handle at line 56 sub YAML::PP::Reader::File::CORE:open; # opcode
					# spent 30.8ms (26.4+4.47) within YAML::PP::Reader::File::CORE:readline which was called 13456 times, avg 2µs/call: # 13456 times (26.4ms+4.47ms) by YAML::PP::Reader::File::readline at line 75, avg 2µs/call sub YAML::PP::Reader::File::CORE:readline; # opcode