← 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:12:15 2013

Filename/usr/share/perl/5.10/SelectSaver.pm
StatementsExecuted 9 statements in 250µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11130µs117µsSelectSaver::::BEGIN@6SelectSaver::BEGIN@6
11116µs112µ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;
6351µs2204µs
# spent 117µs (30+87) within SelectSaver::BEGIN@6 which was called: # once (30µs+87µs) by IO::File::BEGIN@10 at line 6
use Carp;
# spent 117µs making 1 call to SelectSaver::BEGIN@6 # spent 87µs making 1 call to Exporter::import
73170µs2209µs
# spent 112µs (16+96) within SelectSaver::BEGIN@7 which was called: # once (16µs+96µs) by IO::File::BEGIN@10 at line 7
use Symbol;
# spent 112µs making 1 call to SelectSaver::BEGIN@7 # spent 96µ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
2214µs1;