← 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:02 2013

Filename/usr/lib/perl/5.10/List/Util.pm
StatementsExecuted 20 statements in 497µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117µs22µsList::Util::::BEGIN@11List::Util::BEGIN@11
1118µs80µsList::Util::::BEGIN@12List::Util::BEGIN@12
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# List::Util.pm
2#
3# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
4# This program is free software; you can redistribute it and/or
5# modify it under the same terms as Perl itself.
6#
7# This module is normally only loaded if the XS module is not available
8
9package List::Util;
10
11337µs227µs
# spent 22µs (17+5) within List::Util::BEGIN@11 which was called: # once (17µs+5µs) by C4::Context::BEGIN@101 at line 11
use strict;
# spent 22µs making 1 call to List::Util::BEGIN@11 # spent 5µs making 1 call to strict::import
123144µs2152µs
# spent 80µs (8+72) within List::Util::BEGIN@12 which was called: # once (8µs+72µs) by C4::Context::BEGIN@101 at line 12
use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY);
# spent 80µs making 1 call to List::Util::BEGIN@12 # spent 72µs making 1 call to vars::import
131900nsrequire Exporter;
14
15110µs@ISA = qw(Exporter);
1612µs@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
171400ns$VERSION = "1.21";
181300ns$XS_VERSION = $VERSION;
19127µs$VERSION = eval $VERSION;
# spent 4µs executing statements in string eval
20
211800nseval {
22 # PERL_DL_NONLAZY must be false, or any errors in loading will just
23 # cause the perl code to be tested
2411µs local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
25 eval {
261900ns require XSLoader;
271259µs1251µs XSLoader::load('List::Util', $XS_VERSION);
# spent 251µs making 1 call to XSLoader::load
281900ns 1;
291700ns } or do {
30 require DynaLoader;
31 local @ISA = qw(DynaLoader);
32 bootstrap List::Util $XS_VERSION;
33 };
34} unless $TESTING_PERL_ONLY;
35
361800nsif (!defined &sum) {
37 require List::Util::PP;
38 List::Util::PP->import;
39}
40
41113µs1;
42
43__END__