| Filename | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/YAML/PP/Writer/File.pm |
| Statements | Executed 12 statements in 621µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 42µs | 45µs | YAML::PP::Dumper::BEGIN@1.297 |
| 1 | 1 | 1 | 24µs | 118µs | YAML::PP::Writer::File::BEGIN@7 |
| 1 | 1 | 1 | 19µs | 48µs | YAML::PP::Writer::File::BEGIN@11 |
| 1 | 1 | 1 | 10µs | 100µs | YAML::PP::Writer::File::BEGIN@9 |
| 1 | 1 | 1 | 9µs | 45µs | YAML::PP::Dumper::BEGIN@2.298 |
| 5 | 5 | 1 | 9µs | 9µs | YAML::PP::Dumper::__ANON__ (xsub) |
| 0 | 0 | 0 | 0s | 0s | YAML::PP::Writer::File::_open_handle |
| 0 | 0 | 0 | 0s | 0s | YAML::PP::Writer::File::finish |
| 0 | 0 | 0 | 0s | 0s | YAML::PP::Writer::File::init |
| 0 | 0 | 0 | 0s | 0s | YAML::PP::Writer::File::write |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 2 | 38µs | 2 | 48µs | # spent 45µs (42+3) within YAML::PP::Dumper::BEGIN@1.297 which was called:
# once (42µs+3µs) by YAML::PP::Dumper::BEGIN@12 at line 1 # spent 45µs making 1 call to YAML::PP::Dumper::BEGIN@1.297
# spent 3µs making 1 call to strict::import |
| 2 | 2 | 69µs | 2 | 81µs | # spent 45µs (9+36) within YAML::PP::Dumper::BEGIN@2.298 which was called:
# once (9µs+36µs) by YAML::PP::Dumper::BEGIN@12 at line 2 # spent 45µs making 1 call to YAML::PP::Dumper::BEGIN@2.298
# spent 36µs making 1 call to warnings::import |
| 3 | package YAML::PP::Writer::File; | ||||
| 4 | |||||
| 5 | 1 | 0s | our $VERSION = '0.035'; # VERSION | ||
| 6 | |||||
| 7 | 2 | 153µs | 2 | 212µs | # spent 118µs (24+94) within YAML::PP::Writer::File::BEGIN@7 which was called:
# once (24µs+94µs) by YAML::PP::Dumper::BEGIN@12 at line 7 # spent 118µs making 1 call to YAML::PP::Writer::File::BEGIN@7
# spent 94µs making 1 call to Exporter::import |
| 8 | |||||
| 9 | 2 | 46µs | 2 | 190µs | # spent 100µs (10+90) within YAML::PP::Writer::File::BEGIN@9 which was called:
# once (10µs+90µs) by YAML::PP::Dumper::BEGIN@12 at line 9 # spent 100µs making 1 call to YAML::PP::Writer::File::BEGIN@9
# spent 90µs making 1 call to base::import |
| 10 | |||||
| 11 | 2 | 311µs | 2 | 77µs | # spent 48µs (19+29) within YAML::PP::Writer::File::BEGIN@11 which was called:
# once (19µs+29µs) by YAML::PP::Dumper::BEGIN@12 at line 11 # spent 48µs making 1 call to YAML::PP::Writer::File::BEGIN@11
# spent 29µs making 1 call to Exporter::import |
| 12 | |||||
| 13 | sub _open_handle { | ||||
| 14 | my ($self) = @_; | ||||
| 15 | if (openhandle($self->{output})) { | ||||
| 16 | $self->{filehandle} = $self->{output}; | ||||
| 17 | return $self->{output}; | ||||
| 18 | } | ||||
| 19 | open my $fh, '>:encoding(UTF-8)', $self->{output} | ||||
| 20 | or croak "Could not open '$self->{output}' for writing: $!"; | ||||
| 21 | $self->{filehandle} = $fh; | ||||
| 22 | return $fh; | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | sub write { | ||||
| 26 | my ($self, $line) = @_; | ||||
| 27 | my $fh = $self->{filehandle}; | ||||
| 28 | print $fh $line; | ||||
| 29 | } | ||||
| 30 | |||||
| 31 | sub init { | ||||
| 32 | my ($self) = @_; | ||||
| 33 | my $fh = $self->_open_handle; | ||||
| 34 | } | ||||
| 35 | |||||
| 36 | sub finish { | ||||
| 37 | my ($self) = @_; | ||||
| 38 | if (openhandle($self->{output})) { | ||||
| 39 | # Original argument was a file handle, so the caller needs | ||||
| 40 | # to close it | ||||
| 41 | return; | ||||
| 42 | } | ||||
| 43 | close $self->{filehandle}; | ||||
| 44 | } | ||||
| 45 | |||||
| 46 | 1 | 4µs | 1; | ||
| 47 | |||||
| 48 | __END__ | ||||
# spent 9µs within YAML::PP::Dumper::__ANON__ which was called 5 times, avg 2µs/call:
# once (3µs+0s) by YAML::PP::Dumper::BEGIN@10 at line 10 of YAML/PP/Dumper.pm
# once (3µs+0s) by YAML::PP::Dumper::BEGIN@9 at line 9 of YAML/PP/Dumper.pm
# once (2µs+0s) by YAML::PP::Dumper::BEGIN@12 at line 12 of YAML/PP/Dumper.pm
# once (1µs+0s) by YAML::PP::Dumper::BEGIN@11 at line 11 of YAML/PP/Dumper.pm
# once (0s+0s) by YAML::PP::Dumper::BEGIN@8 at line 8 of YAML/PP/Dumper.pm |