Profile of IO/Seekable.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:04 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/x86_64-linux/IO/Seekable.pm
Statements | Executed 22 statements in 385µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 1.82ms | 2.52ms | IO::Seekable::::BEGIN@101IO::Seekable::BEGIN@101
1 | 1 | 1 | 18µs | 18µs | IO::Seekable::::BEGIN@97IO::Seekable::BEGIN@97
1 | 1 | 1 | 14µs | 16µs | IO::Seekable::::BEGIN@99IO::Seekable::BEGIN@99
1 | 1 | 1 | 13µs | 58µs | IO::Seekable::::BEGIN@104IO::Seekable::BEGIN@104
1 | 1 | 1 | 7µs | 35µs | IO::Seekable::::BEGIN@98IO::Seekable::BEGIN@98
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 |  |  |  |  | =head1 NAME
6 |  |  |  |  |
7 |  |  |  |  | IO::Seekable - supply seek based methods for I/O objects
8 |  |  |  |  |
9 |  |  |  |  | =head1 SYNOPSIS
10 |  |  |  |  |
11 |  |  |  |  | use IO::Seekable;
12 |  |  |  |  | package IO::Something;
13 |  |  |  |  | @ISA = qw(IO::Seekable);
14 |  |  |  |  |
15 |  |  |  |  | =head1 DESCRIPTION
16 |  |  |  |  |
17 |  |  |  |  | C<IO::Seekable> does not have a constructor of its own as it is intended to
18 |  |  |  |  | be inherited by other C<IO::Handle> based objects. It provides methods
19 |  |  |  |  | which allow seeking of the file descriptors.
20 |  |  |  |  |
21 |  |  |  |  | =over 4
22 |  |  |  |  |
23 |  |  |  |  | =item $io->getpos
24 |  |  |  |  |
25 |  |  |  |  | Returns an opaque value that represents the current position of the
26 |  |  |  |  | IO::File, or C<undef> if this is not possible (eg an unseekable stream such
27 |  |  |  |  | as a terminal, pipe or socket). If the fgetpos() function is available in
28 |  |  |  |  | your C library it is used to implements getpos, else perl emulates getpos
29 |  |  |  |  | using C's ftell() function.
30 |  |  |  |  |
31 |  |  |  |  | =item $io->setpos
32 |  |  |  |  |
33 |  |  |  |  | Uses the value of a previous getpos call to return to a previously visited
34 |  |  |  |  | position. Returns "0 but true" on success, C<undef> on failure.
35 |  |  |  |  |
36 |  |  |  |  | =back
37 |  |  |  |  |
38 |  |  |  |  | See L<perlfunc> for complete descriptions of each of the following
39 |  |  |  |  | supported C<IO::Seekable> methods, which are just front ends for the
40 |  |  |  |  | corresponding built-in functions:
41 |  |  |  |  |
42 |  |  |  |  | =over 4
43 |  |  |  |  |
44 |  |  |  |  | =item $io->seek ( POS, WHENCE )
45 |  |  |  |  |
46 |  |  |  |  | Seek the IO::File to position POS, relative to WHENCE:
47 |  |  |  |  |
48 |  |  |  |  | =over 8
49 |  |  |  |  |
50 |  |  |  |  | =item WHENCE=0 (SEEK_SET)
51 |  |  |  |  |
52 |  |  |  |  | POS is absolute position. (Seek relative to the start of the file)
53 |  |  |  |  |
54 |  |  |  |  | =item WHENCE=1 (SEEK_CUR)
55 |  |  |  |  |
56 |  |  |  |  | POS is an offset from the current position. (Seek relative to current)
57 |  |  |  |  |
58 |  |  |  |  | =item WHENCE=2 (SEEK_END)
59 |  |  |  |  |
60 |  |  |  |  | POS is an offset from the end of the file. (Seek relative to end)
61 |  |  |  |  |
62 |  |  |  |  | =back
63 |  |  |  |  |
64 |  |  |  |  | The SEEK_* constants can be imported from the C<Fcntl> module if you
65 |  |  |  |  | don't wish to use the numbers C<0> C<1> or C<2> in your code.
66 |  |  |  |  |
67 |  |  |  |  | Returns C<1> upon success, C<0> otherwise.
68 |  |  |  |  |
69 |  |  |  |  | =item $io->sysseek( POS, WHENCE )
70 |  |  |  |  |
71 |  |  |  |  | Similar to $io->seek, but sets the IO::File's position using the system
72 |  |  |  |  | call lseek(2) directly, so will confuse most perl IO operators except
73 |  |  |  |  | sysread and syswrite (see L<perlfunc> for full details)
74 |  |  |  |  |
75 |  |  |  |  | Returns the new position, or C<undef> on failure. A position
76 |  |  |  |  | of zero is returned as the string C<"0 but true">
77 |  |  |  |  |
78 |  |  |  |  | =item $io->tell
79 |  |  |  |  |
80 |  |  |  |  | Returns the IO::File's current position, or -1 on error.
81 |  |  |  |  |
82 |  |  |  |  | =back
83 |  |  |  |  |
84 |  |  |  |  | =head1 SEE ALSO
85 |  |  |  |  |
86 |  |  |  |  | L<perlfunc>,
87 |  |  |  |  | L<perlop/"I/O Operators">,
88 |  |  |  |  | L<IO::Handle>
89 |  |  |  |  | L<IO::File>
90 |  |  |  |  |
91 |  |  |  |  | =head1 HISTORY
92 |  |  |  |  |
93 |  |  |  |  | Derived from FileHandle.pm by Graham Barr E<lt>gbarr@pobox.comE<gt>
94 |  |  |  |  |
95 |  |  |  |  | =cut
96 |  |  |  |  |
97 | 3 | 28µs | 1 | 18µs | # spent 18µs within IO::Seekable::BEGIN@97 which was called: # once (18µs+0s) by IO::File::BEGIN@133 at line 97 use 5.006_001; # spent 18µs making 1 call to IO::Seekable::BEGIN@97
98 | 3 | 16µs | 2 | 64µs | # spent 35µs (7+28) within IO::Seekable::BEGIN@98 which was called: # once (7µs+28µs) by IO::File::BEGIN@133 at line 98 use Carp; # spent 35µs making 1 call to IO::Seekable::BEGIN@98 # spent 28µs making 1 call to Exporter::import
99 | 3 | 32µs | 2 | 19µs | # spent 16µs (14+3) within IO::Seekable::BEGIN@99 which was called: # once (14µs+3µs) by IO::File::BEGIN@133 at line 99 use strict; # spent 16µs making 1 call to IO::Seekable::BEGIN@99 # spent 2µs making 1 call to strict::import
100 | 1 | 400ns |  |  | our($VERSION, @EXPORT, @ISA);
101 | 3 | 172µs | 1 | 2.52ms | # spent 2.52ms (1.82+699µs) within IO::Seekable::BEGIN@101 which was called: # once (1.82ms+699µs) by IO::File::BEGIN@133 at line 101 use IO::Handle (); # spent 2.52ms making 1 call to IO::Seekable::BEGIN@101
102 |  |  |  |  | # XXX we can't get these from IO::Handle or we'll get prototype
103 |  |  |  |  | # mismatch warnings on C<use POSIX; use IO::File;> :-(
104 | 3 | 114µs | 2 | 103µs | # spent 58µs (13+45) within IO::Seekable::BEGIN@104 which was called: # once (13µs+45µs) by IO::File::BEGIN@133 at line 104 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 58µs making 1 call to IO::Seekable::BEGIN@104 # spent 45µs making 1 call to Exporter::import
105 | 1 | 400ns |  |  | require Exporter;
106 |  |  |  |  |
107 | 1 | 1µs |  |  | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
108 | 1 | 6µs |  |  | @ISA = qw(Exporter);
109 |  |  |  |  |
110 | 1 | 300ns |  |  | $VERSION = "1.10";
111 | 1 | 10µs |  |  | $VERSION = eval $VERSION; # spent 2µs executing statements in string eval
112 |  |  |  |  |
113 |  |  |  |  | sub seek {
114 |  |  |  |  | @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
115 |  |  |  |  | seek($_[0], $_[1], $_[2]);
116 |  |  |  |  | }
117 |  |  |  |  |
118 |  |  |  |  | sub sysseek {
119 |  |  |  |  | @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
120 |  |  |  |  | sysseek($_[0], $_[1], $_[2]);
121 |  |  |  |  | }
122 |  |  |  |  |
123 |  |  |  |  | sub tell {
124 |  |  |  |  | @_ == 1 or croak 'usage: $io->tell()';
125 |  |  |  |  | tell($_[0]);
126 |  |  |  |  | }
127 |  |  |  |  |
128 | 1 | 4µs |  |  | 1;