← Index
NYTProf Performance Profile   « line view »
For t/bug-md-11.t
  Run on Fri Mar 8 13:27:24 2024
Reported on Fri Mar 8 13:30:23 2024

Filename/home/micha/.plenv/versions/5.38.2/lib/perl5/site_perl/5.38.2/x86_64-linux/IO/Seekable.pm
StatementsExecuted 89 statements in 420µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.43ms1.92msIO::Seekable::::BEGIN@100IO::Seekable::BEGIN@100
2810233µs79µsIO::Seekable::::seekIO::Seekable::seek
93213µs15µsIO::Seekable::::tellIO::Seekable::tell
11111µs11µsIO::Seekable::::BEGIN@97IO::Seekable::BEGIN@97
1115µs26µsIO::Seekable::::BEGIN@103IO::Seekable::BEGIN@103
1114µs24µsIO::Seekable::::BEGIN@98IO::Seekable::BEGIN@98
1114µs5µsIO::Seekable::::BEGIN@99IO::Seekable::BEGIN@99
0000s0sIO::Seekable::::sysseekIO::Seekable::sysseek
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#
2
3package IO::Seekable;
4
5=head1 NAME
6
7IO::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
17C<IO::Seekable> does not have a constructor of its own as it is intended to
18be inherited by other C<IO::Handle> based objects. It provides methods
19which allow seeking of the file descriptors.
20
21=over 4
22
23=item $io->getpos
24
25Returns an opaque value that represents the current position of the
26IO::File, or C<undef> if this is not possible (eg an unseekable stream such
27as a terminal, pipe or socket). If the fgetpos() function is available in
28your C library it is used to implements getpos, else perl emulates getpos
29using C's ftell() function.
30
31=item $io->setpos
32
33Uses the value of a previous getpos call to return to a previously visited
34position. Returns "0 but true" on success, C<undef> on failure.
35
36=back
37
38See L<perlfunc> for complete descriptions of each of the following
39supported C<IO::Seekable> methods, which are just front ends for the
40corresponding built-in functions:
41
42=over 4
43
44=item $io->seek ( POS, WHENCE )
45
46Seek the IO::File to position POS, relative to WHENCE:
47
48=over 8
49
50=item WHENCE=0 (SEEK_SET)
51
52POS is absolute position. (Seek relative to the start of the file)
53
54=item WHENCE=1 (SEEK_CUR)
55
56POS is an offset from the current position. (Seek relative to current)
57
58=item WHENCE=2 (SEEK_END)
59
60POS is an offset from the end of the file. (Seek relative to end)
61
62=back
63
64The SEEK_* constants can be imported from the C<Fcntl> module if you
65don't wish to use the numbers C<0> C<1> or C<2> in your code.
66
67Returns C<1> upon success, C<0> otherwise.
68
69=item $io->sysseek( POS, WHENCE )
70
71Similar to $io->seek, but sets the IO::File's position using the system
72call lseek(2) directly, so will confuse most perl IO operators except
73sysread and syswrite (see L<perlfunc> for full details)
74
75Returns the new position, or C<undef> on failure. A position
76of zero is returned as the string C<"0 but true">
77
78=item $io->tell
79
80Returns the IO::File's current position, or -1 on error.
81
82=back
83
84=head1 SEE ALSO
85
86L<perlfunc>,
87L<perlop/"I/O Operators">,
88L<IO::Handle>
89L<IO::File>
90
91=head1 HISTORY
92
93Derived from FileHandle.pm by Graham Barr E<lt>gbarr@pobox.comE<gt>
94
95=cut
96
97230µs111µs
# spent 11µs within IO::Seekable::BEGIN@97 which was called: # once (11µs+0s) by IO::File::BEGIN@124 at line 97
use 5.008_001;
# spent 11µs making 1 call to IO::Seekable::BEGIN@97
98213µs243µs
# spent 24µs (4+20) within IO::Seekable::BEGIN@98 which was called: # once (4µs+20µs) by IO::File::BEGIN@124 at line 98
use Carp;
# spent 24µs making 1 call to IO::Seekable::BEGIN@98 # spent 20µs making 1 call to Exporter::import
99218µs26µs
# spent 5µs (4+1) within IO::Seekable::BEGIN@99 which was called: # once (4µs+1µs) by IO::File::BEGIN@124 at line 99
use strict;
# spent 5µs making 1 call to IO::Seekable::BEGIN@99 # spent 1µs making 1 call to strict::import
1002150µs11.92ms
# spent 1.92ms (1.43+486µs) within IO::Seekable::BEGIN@100 which was called: # once (1.43ms+486µs) by IO::File::BEGIN@124 at line 100
use IO::Handle ();
# spent 1.92ms making 1 call to IO::Seekable::BEGIN@100
101# XXX we can't get these from IO::Handle or we'll get prototype
102# mismatch warnings on C<use POSIX; use IO::File;> :-(
103284µs246µs
# spent 26µs (5+20) within IO::Seekable::BEGIN@103 which was called: # once (5µs+20µs) by IO::File::BEGIN@124 at line 103
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
# spent 26µs making 1 call to IO::Seekable::BEGIN@103 # spent 20µs making 1 call to Exporter::import
1041300nsrequire Exporter;
105
1061800nsour @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
10718µsour @ISA = qw(Exporter);
108
1091200nsour $VERSION = "1.55";
110
111
# spent 79µs (33+46) within IO::Seekable::seek which was called 28 times, avg 3µs/call: # 7 times (8µs+16µs) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 157 of Archive/Zip/ZipFileMember.pm, avg 3µs/call # 7 times (10µs+10µs) by Archive::Zip::ZipFileMember::_seekToLocalHeader at line 67 of Archive/Zip/ZipFileMember.pm, avg 3µs/call # 7 times (6µs+11µs) by Archive::Zip::ZipFileMember::rewindData at line 458 of Archive/Zip/ZipFileMember.pm, avg 2µs/call # once (3µs+2µs) by Archive::Zip::Archive::readFromFileHandle at line 759 of Archive/Zip/Archive.pm # once (1µs+2µs) by Archive::Zip::Archive::_readEndOfCentralDirectory at line 949 of Archive/Zip/Archive.pm # once (1µs+1µs) by Archive::Zip::Archive::_findEndOfCentralDirectory at line 1026 of Archive/Zip/Archive.pm # once (1µs+1µs) by Archive::Zip::Archive::_findEndOfCentralDirectory at line 1039 of Archive/Zip/Archive.pm # once (900ns+1µs) by Archive::Zip::Archive::readFromFileHandle at line 770 of Archive/Zip/Archive.pm # once (900ns+1µs) by Archive::Zip::Archive::_findEndOfCentralDirectory at line 1053 of Archive/Zip/Archive.pm # once (900ns+1µs) by Archive::Zip::Archive::_readEndOfCentralDirectory at line 862 of Archive/Zip/Archive.pm
sub seek {
112283µs @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
1132889µs2846µs seek($_[0], $_[1], $_[2]);
# spent 46µs making 28 calls to CORE::seek, avg 2µs/call
114}
115
116sub sysseek {
117 @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
118 sysseek($_[0], $_[1], $_[2]);
119}
120
121
# spent 15µs (13+2) within IO::Seekable::tell which was called 9 times, avg 2µs/call: # 7 times (8µs+2µs) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 178 of Archive/Zip/ZipFileMember.pm, avg 1µs/call # once (4µs+400ns) by Archive::Zip::Archive::_findEndOfCentralDirectory at line 1029 of Archive/Zip/Archive.pm # once (800ns+200ns) by Archive::Zip::Archive::_readEndOfCentralDirectory at line 839 of Archive/Zip/Archive.pm
sub tell {
12292µs @_ == 1 or croak 'usage: $io->tell()';
123918µs92µs tell($_[0]);
# spent 2µs making 9 calls to CORE::tell, avg 233ns/call
124}
125
12613µs1;