Profile of YAML/PP/Writer.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/YAML/PP/Writer.pm
Statements	Executed 12 statements in 212µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	24µs	26µs	YAML::PP::Dumper::::BEGIN@2.297YAML::PP::Dumper::BEGIN@2.297
1	1	1	4µs	4µs	YAML::PP::Writer::::newYAML::PP::Writer::new
1	1	1	3µs	21µs	YAML::PP::Dumper::::BEGIN@3YAML::PP::Dumper::BEGIN@3
1	1	1	3µs	6µs	YAML::PP::Writer::::initYAML::PP::Writer::init
1	1	1	3µs	3µs	YAML::PP::Writer::::set_outputYAML::PP::Writer::set_output
0	0	0	0s	0s	YAML::PP::Writer::::finishYAML::PP::Writer::finish
0	0	0	0s	0s	YAML::PP::Writer::::outputYAML::PP::Writer::output
0	0	0	0s	0s	YAML::PP::Writer::::writeYAML::PP::Writer::write

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					# ABSTRACT: Writer class for YAML::PP representing output data
2	2	25µs	2	28µs	# spent 26µs (24+2) within YAML::PP::Dumper::BEGIN@2.297 which was called: # once (24µs+2µs) by YAML::PP::Dumper::BEGIN@11 at line 2 use strict; # spent 26µs making 1 call to YAML::PP::Dumper::BEGIN@2.297 # spent 2µs making 1 call to strict::import
3	2	168µs	2	39µs	# spent 21µs (3+18) within YAML::PP::Dumper::BEGIN@3 which was called: # once (3µs+18µs) by YAML::PP::Dumper::BEGIN@11 at line 3 use warnings; # spent 21µs making 1 call to YAML::PP::Dumper::BEGIN@3 # spent 18µs making 1 call to warnings::import
4					package YAML::PP::Writer;
5
6	1	0s			our $VERSION = '0.035'; # VERSION
7
8					sub output { return $_[0]->{output} }
9	1	3µs			# spent 3µs within YAML::PP::Writer::set_output which was called: # once (3µs+0s) by YAML::PP::Writer::init at line 26 sub set_output { $_[0]->{output} = $_[1] }
10
11					# spent 4µs within YAML::PP::Writer::new which was called: # once (4µs+0s) by YAML::PP::Emitter::init at line 51 of YAML/PP/Emitter.pm sub new {
12	1	1µs			my ($class, %args) = @_;
13	1	0s			my $output = delete $args{output};
14	1	1µs			$output = '' unless defined $output;
15	1	3µs			return bless {
16					output => $output,
17					}, $class;
18					}
19
20					sub write {
21					my ($self, $line) = @_;
22					$self->{output} .= $line;
23					}
24
25					# spent 6µs (3+3) within YAML::PP::Writer::init which was called: # once (3µs+3µs) by YAML::PP::Emitter::init at line 60 of YAML/PP/Emitter.pm sub init {
26	1	3µs	1	3µs	$_[0]->set_output(''); # spent 3µs making 1 call to YAML::PP::Writer::set_output
27					}
28
29					sub finish {
30					my ($self) = @_;
31					$_[0]->set_output(undef);
32					}
33
34	1	8µs			1;
35
36					__END__