← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:09 2010

File /usr/lib/perl/5.10/IO/Seekable.pm
Statements Executed 22
Total Time 0.0004595 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sIO::Seekable::::BEGINIO::Seekable::BEGIN
0000s0sIO::Seekable::::seekIO::Seekable::seek
0000s0sIO::Seekable::::sysseekIO::Seekable::sysseek
0000s0sIO::Seekable::::tellIO::Seekable::tell
LineStmts.Exclusive
Time
Avg.Code
1#
2
3package IO::Seekable;
4
5339µs13µsuse 5.006_001;
6327µs9µsuse Carp;
# spent 51µs making 1 call to Exporter::import
7354µs18µsuse strict;
# spent 12µs making 1 call to strict::import
81500ns500nsour($VERSION, @EXPORT, @ISA);
93118µs39µsuse IO::Handle ();
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;> :-(
123180µs60µsuse Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
# spent 56µs making 1 call to Exporter::import
131600ns600nsrequire Exporter;
14
1516µs6µs@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
1618µs8µs@ISA = qw(Exporter);
17
181600ns600ns$VERSION = "1.10";
19117µs17µs$VERSION = eval $VERSION;
20
21sub seek {
22 @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
23 seek($_[0], $_[1], $_[2]);
24}
25
26sub sysseek {
27 @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
28 sysseek($_[0], $_[1], $_[2]);
29}
30
31sub tell {
32 @_ == 1 or croak 'usage: $io->tell()';
33 tell($_[0]);
34}
35
3619µs9µs1;