Filename | /usr/lib/perl/5.14/IO/Seekable.pm |
Statements | Executed 17 statements in 371µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 2.08ms | 2.75ms | BEGIN@9 | IO::Seekable::
1 | 1 | 1 | 17µs | 17µs | BEGIN@5 | IO::Seekable::
1 | 1 | 1 | 10µs | 45µs | BEGIN@12 | IO::Seekable::
1 | 1 | 1 | 9µs | 11µs | BEGIN@7 | IO::Seekable::
1 | 1 | 1 | 7µs | 46µs | BEGIN@6 | 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 | 41µs | 1 | 17µs | # spent 17µs within IO::Seekable::BEGIN@5 which was called:
# once (17µs+0s) by IO::File::BEGIN@11 at line 5 # spent 17µs making 1 call to IO::Seekable::BEGIN@5 |
6 | 2 | 23µs | 2 | 84µs | # spent 46µs (7+38) within IO::Seekable::BEGIN@6 which was called:
# once (7µs+38µs) by IO::File::BEGIN@11 at line 6 # spent 46µs making 1 call to IO::Seekable::BEGIN@6
# spent 38µs making 1 call to Exporter::import |
7 | 2 | 34µs | 2 | 14µs | # spent 11µs (9+3) within IO::Seekable::BEGIN@7 which was called:
# once (9µs+3µs) by IO::File::BEGIN@11 at line 7 # spent 11µs making 1 call to IO::Seekable::BEGIN@7
# spent 3µs making 1 call to strict::import |
8 | 1 | 400ns | our($VERSION, @EXPORT, @ISA); | ||
9 | 2 | 108µs | 1 | 2.75ms | # spent 2.75ms (2.08+666µs) within IO::Seekable::BEGIN@9 which was called:
# once (2.08ms+666µs) by IO::File::BEGIN@11 at line 9 # spent 2.75ms 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 | 135µs | 2 | 79µs | # spent 45µs (10+34) within IO::Seekable::BEGIN@12 which was called:
# once (10µs+34µs) by IO::File::BEGIN@11 at line 12 # spent 45µs making 1 call to IO::Seekable::BEGIN@12
# spent 34µs making 1 call to Exporter::import |
13 | 1 | 500ns | require Exporter; | ||
14 | |||||
15 | 1 | 1µs | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); | ||
16 | 1 | 11µs | @ISA = qw(Exporter); | ||
17 | |||||
18 | 1 | 400ns | $VERSION = "1.10"; | ||
19 | 1 | 13µ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 | 4µs | 1; |