Profile of IO/Seekable.pm

← Index
NYTProf Performance Profile «line view»
For script/ponapi
Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:09 2016

Filename | /usr/lib/perl/5.18/IO/Seekable.pm
Statements | Executed 17 statements in 304µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 1.77ms | 2.39ms | IO::Seekable::::BEGIN@9IO::Seekable::BEGIN@9
1 | 1 | 1 | 11µs | 11µs | IO::Seekable::::BEGIN@5IO::Seekable::BEGIN@5
1 | 1 | 1 | 7µs | 34µs | IO::Seekable::::BEGIN@12IO::Seekable::BEGIN@12
1 | 1 | 1 | 5µs | 35µs | IO::Seekable::::BEGIN@6IO::Seekable::BEGIN@6
1 | 1 | 1 | 5µs | 12µs | IO::Seekable::::BEGIN@7IO::Seekable::BEGIN@7
0 | 0 | 0 | 0s | 0s | IO::Seekable::::seekIO::Seekable::seek
0 | 0 | 0 | 0s | 0s | IO::Seekable::::sysseekIO::Seekable::sysseek
0 | 0 | 0 | 0s | 0s | IO::Seekable::::tellIO::Seekable::tell

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

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | #
2 |  |  |  |  |
3 |  |  |  |  | package IO::Seekable;
4 |  |  |  |  |
5 | 2 | 36µs | 1 | 11µs | # spent 11µs within IO::Seekable::BEGIN@5 which was called: # once (11µs+0s) by IO::File::BEGIN@11 at line 5 use 5.006_001; # spent 11µs making 1 call to IO::Seekable::BEGIN@5
6 | 2 | 18µs | 2 | 65µs | # spent 35µs (5+30) within IO::Seekable::BEGIN@6 which was called: # once (5µs+30µs) by IO::File::BEGIN@11 at line 6 use Carp; # spent 35µs making 1 call to IO::Seekable::BEGIN@6 # spent 30µs making 1 call to Exporter::import
7 | 2 | 31µs | 2 | 20µs | # spent 12µs (5+8) within IO::Seekable::BEGIN@7 which was called: # once (5µs+8µs) by IO::File::BEGIN@11 at line 7 use strict; # spent 12µs making 1 call to IO::Seekable::BEGIN@7 # spent 8µs making 1 call to strict::import
8 | 1 | 300ns |  |  | our($VERSION, @EXPORT, @ISA);
9 | 2 | 82µs | 1 | 2.39ms | # spent 2.39ms (1.77+625µs) within IO::Seekable::BEGIN@9 which was called: # once (1.77ms+625µs) by IO::File::BEGIN@11 at line 9 use IO::Handle (); # spent 2.39ms making 1 call to IO::Seekable::BEGIN@9
10 |  |  |  |  | # XXX we can't get these from IO::Handle or we'll get prototype
11 |  |  |  |  | # mismatch warnings on C<use POSIX; use IO::File;> :-(
12 | 2 | 112µs | 2 | 62µs | # spent 34µs (7+27) within IO::Seekable::BEGIN@12 which was called: # once (7µs+27µs) by IO::File::BEGIN@11 at line 12 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 34µs making 1 call to IO::Seekable::BEGIN@12 # spent 27µs making 1 call to Exporter::import
13 | 1 | 400ns |  |  | require Exporter;
14 |  |  |  |  |
15 | 1 | 900ns |  |  | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
16 | 1 | 9µs |  |  | @ISA = qw(Exporter);
17 |  |  |  |  |
18 | 1 | 200ns |  |  | $VERSION = "1.10";
19 | 1 | 10µs |  |  | $VERSION = eval $VERSION; # spent 2µs executing statements in string eval
20 |  |  |  |  |
21 |  |  |  |  | sub seek {
22 |  |  |  |  | @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
23 |  |  |  |  | seek($_[0], $_[1], $_[2]);
24 |  |  |  |  | }
25 |  |  |  |  |
26 |  |  |  |  | sub sysseek {
27 |  |  |  |  | @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
28 |  |  |  |  | sysseek($_[0], $_[1], $_[2]);
29 |  |  |  |  | }
30 |  |  |  |  |
31 |  |  |  |  | sub tell {
32 |  |  |  |  | @_ == 1 or croak 'usage: $io->tell()';
33 |  |  |  |  | tell($_[0]);
34 |  |  |  |  | }
35 |  |  |  |  |
36 | 1 | 3µs |  |  | 1;