← 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 11:58:52 2013
Reported on Tue Oct 15 12:01:10 2013

Filename/usr/share/perl/5.10/SelectSaver.pm
StatementsExecuted 9 statements in 234µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11121µs85µsSelectSaver::::BEGIN@6SelectSaver::BEGIN@6
11113µs79µsSelectSaver::::BEGIN@7SelectSaver::BEGIN@7
0000s0sSelectSaver::::DESTROYSelectSaver::DESTROY
0000s0sSelectSaver::::newSelectSaver::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package SelectSaver;
2
311µsour $VERSION = '1.02';
4
5124µsrequire 5.000;
6343µs2150µs
# spent 85µs (21+64) within SelectSaver::BEGIN@6 which was called: # once (21µs+64µs) by IO::File::BEGIN@10 at line 6
use Carp;
# spent 85µs making 1 call to SelectSaver::BEGIN@6 # spent 64µs making 1 call to Exporter::import
73161µs2145µs
# spent 79µs (13+66) within SelectSaver::BEGIN@7 which was called: # once (13µs+66µs) by IO::File::BEGIN@10 at line 7
use Symbol;
# spent 79µs making 1 call to SelectSaver::BEGIN@7 # spent 66µs making 1 call to Exporter::import
8
9sub new {
10 @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
11 my $fh = select;
12 my $self = bless \$fh, $_[0];
13 select qualify($_[1], caller) if @_ > 1;
14 $self;
15}
16
17sub DESTROY {
18 my $self = $_[0];
19 select $$self;
20}
21
2215µs1;