← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:11:21 2013

Filename/usr/lib/perl/5.10/IO/Seekable.pm
StatementsExecuted 22 statements in 718µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1112.84ms4.25msIO::Seekable::::BEGIN@9IO::Seekable::BEGIN@9
1111.17ms2.30msIO::Seekable::::BEGIN@12IO::Seekable::BEGIN@12
11139µs39µsIO::Seekable::::BEGIN@5IO::Seekable::BEGIN@5
11115µs22µsIO::Seekable::::BEGIN@7IO::Seekable::BEGIN@7
11115µs102µsIO::Seekable::::BEGIN@6IO::Seekable::BEGIN@6
0000s0sIO::Seekable::::seekIO::Seekable::seek
0000s0sIO::Seekable::::sysseekIO::Seekable::sysseek
0000s0sIO::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
3package IO::Seekable;
4
5362µs139µs
# spent 39µs within IO::Seekable::BEGIN@5 which was called: # once (39µs+0s) by IO::File::BEGIN@11 at line 5
use 5.006_001;
# spent 39µs making 1 call to IO::Seekable::BEGIN@5
6345µs2189µs
# spent 102µs (15+87) within IO::Seekable::BEGIN@6 which was called: # once (15µs+87µs) by IO::File::BEGIN@11 at line 6
use Carp;
# spent 102µs making 1 call to IO::Seekable::BEGIN@6 # spent 87µs making 1 call to Exporter::import
7368µs228µs
# spent 22µs (15+7) within IO::Seekable::BEGIN@7 which was called: # once (15µs+7µs) by IO::File::BEGIN@11 at line 7
use strict;
# spent 22µs making 1 call to IO::Seekable::BEGIN@7 # spent 7µs making 1 call to strict::import
81800nsour($VERSION, @EXPORT, @ISA);
93166µs14.25ms
# spent 4.25ms (2.84+1.42) within IO::Seekable::BEGIN@9 which was called: # once (2.84ms+1.42ms) by IO::File::BEGIN@11 at line 9
use IO::Handle ();
# spent 4.25ms 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;> :-(
123342µs23.02ms
# spent 2.30ms (1.17+1.13) within IO::Seekable::BEGIN@12 which was called: # once (1.17ms+1.13ms) by IO::File::BEGIN@11 at line 12
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
# spent 2.30ms making 1 call to IO::Seekable::BEGIN@12 # spent 720µs making 1 call to Exporter::import
131700nsrequire Exporter;
14
1512µs@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
1618µs@ISA = qw(Exporter);
17
181600ns$VERSION = "1.10";
19117µs$VERSION = eval $VERSION;
# spent 3µs executing statements in string eval
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
3615µs1;