Filename | /usr/lib/perl/5.18/IO/Seekable.pm |
Statements | Executed 17 statements in 304µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 1.77ms | 2.39ms | BEGIN@9 | IO::Seekable::
1 | 1 | 1 | 11µs | 11µs | BEGIN@5 | IO::Seekable::
1 | 1 | 1 | 7µs | 34µs | BEGIN@12 | IO::Seekable::
1 | 1 | 1 | 5µs | 35µs | BEGIN@6 | IO::Seekable::
1 | 1 | 1 | 5µs | 12µs | BEGIN@7 | IO::Seekable::
0 | 0 | 0 | 0s | 0s | seek | IO::Seekable::
0 | 0 | 0 | 0s | 0s | sysseek | IO::Seekable::
0 | 0 | 0 | 0s | 0s | tell | IO::Seekable::
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 # 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 # 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 # 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 # 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 # 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; |