Filename | /usr/lib/perl/5.14/IO/Seekable.pm |
Statements | Executed 17 statements in 866µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 3.70ms | 4.93ms | BEGIN@9 | IO::Seekable::
1 | 1 | 1 | 613µs | 1.82ms | BEGIN@12 | IO::Seekable::
1 | 1 | 1 | 27µs | 27µs | BEGIN@5 | IO::Seekable::
1 | 1 | 1 | 23µs | 160µs | BEGIN@6 | IO::Seekable::
1 | 1 | 1 | 19µs | 26µ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 | 73µs | 1 | 27µs | # spent 27µs within IO::Seekable::BEGIN@5 which was called:
# once (27µs+0s) by IO::File::BEGIN@11 at line 5 # spent 27µs making 1 call to IO::Seekable::BEGIN@5 |
6 | 2 | 50µs | 2 | 296µs | # spent 160µs (23+137) within IO::Seekable::BEGIN@6 which was called:
# once (23µs+137µs) by IO::File::BEGIN@11 at line 6 # spent 160µs making 1 call to IO::Seekable::BEGIN@6
# spent 137µs making 1 call to Exporter::import |
7 | 2 | 136µs | 2 | 34µs | # spent 26µs (19+8) within IO::Seekable::BEGIN@7 which was called:
# once (19µs+8µs) by IO::File::BEGIN@11 at line 7 # spent 26µs making 1 call to IO::Seekable::BEGIN@7
# spent 8µs making 1 call to strict::import |
8 | 1 | 2µs | our($VERSION, @EXPORT, @ISA); | ||
9 | 2 | 161µs | 1 | 4.93ms | # spent 4.93ms (3.70+1.24) within IO::Seekable::BEGIN@9 which was called:
# once (3.70ms+1.24ms) by IO::File::BEGIN@11 at line 9 # spent 4.93ms 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 | 358µs | 2 | 2.73ms | # spent 1.82ms (613µs+1.21) within IO::Seekable::BEGIN@12 which was called:
# once (613µs+1.21ms) by IO::File::BEGIN@11 at line 12 # spent 1.82ms making 1 call to IO::Seekable::BEGIN@12
# spent 906µs making 1 call to Exporter::import |
13 | 1 | 2µs | require Exporter; | ||
14 | |||||
15 | 1 | 3µs | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); | ||
16 | 1 | 46µs | @ISA = qw(Exporter); | ||
17 | |||||
18 | 1 | 2µs | $VERSION = "1.10"; | ||
19 | 1 | 24µs | $VERSION = eval $VERSION; # spent 4µ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 | 8µs | 1; |