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

Filename/usr/share/perl5/Lingua/Stem/AutoLoader.pm
StatementsExecuted 45 statements in 687µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
101134µs34µsLingua::Stem::AutoLoader::::CORE:substLingua::Stem::AutoLoader::CORE:subst (opcode)
11129µs36µsLingua::Stem::AutoLoader::::BEGIN@43Lingua::Stem::AutoLoader::BEGIN@43
11119µs103µsLingua::Stem::AutoLoader::::BEGIN@44Lingua::Stem::AutoLoader::BEGIN@44
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Lingua::Stem::AutoLoader;
2
3# $RCSfile: AutoLoader.pm,v $ $Revision: 1.2 $ $Date: 1999/06/17 21:59:24 $ $Author: snowhare $
4
5=head1 NAME
6
- -
43369µs243µs
# spent 36µs (29+7) within Lingua::Stem::AutoLoader::BEGIN@43 which was called: # once (29µs+7µs) by Lingua::Stem::BEGIN@7 at line 43
use strict;
# spent 36µs making 1 call to Lingua::Stem::AutoLoader::BEGIN@43 # spent 7µs making 1 call to strict::import
443275µs2187µs
# spent 103µs (19+84) within Lingua::Stem::AutoLoader::BEGIN@44 which was called: # once (19µs+84µs) by Lingua::Stem::BEGIN@7 at line 44
use vars qw($VERSION $AUTOLOAD);
# spent 103µs making 1 call to Lingua::Stem::AutoLoader::BEGIN@44 # spent 84µs making 1 call to vars::import
45
4612µs$VERSION = "1.02";
47
4811µsmy $_autoloaded_functions = {};
49
5014µsmy @packageslist = (
51 'Lingua::Stem::De',
52 'Lingua::Stem::En',
53 'Lingua::Stem::Fr',
54 'Lingua::Stem::Da',
55 'Lingua::Stem::Gl',
56 'Lingua::Stem::It',
57 'Lingua::Stem::No',
58 'Lingua::Stem::Pt',
59 'Lingua::Stem::Sv',
60 'Lingua::Stem::EnBroken',
61);
62
631600nsmy $autoloader =<<'EOF';
64package ----packagename----;
65use vars qw($AUTOLOAD);
66sub AUTOLOAD {
67 return if ($AUTOLOAD =~ m/::(END|DESTROY)$/o);
68 if (exists $_autoloaded_functions->{$AUTOLOAD}) {
69 die("Attempted to autoload function '$AUTOLOAD' more than once - does it exist?\n");
70 }
71 $_autoloaded_functions->{$AUTOLOAD} = 1;
72 my ($packagename) = $AUTOLOAD =~ m/^(.*)::[A-Z_][A-Z0-9_]*$/ois;
73 eval ("use $packagename;");
74 if ($@ ne '') {
75 die ("Unable to use packagename: $@\n");
76 }
77 goto &$AUTOLOAD;
78}
79
80EOF
81
821400nsmy $fullload = '';
8312µsforeach my $packagename (@packageslist) {
8430154µs my ($loader) = $autoloader;
851034µs $loader =~ s/(----packagename----)/$packagename/;
# spent 34µs making 10 calls to Lingua::Stem::AutoLoader::CORE:subst, avg 3µs/call
86 $fullload .= $loader;
87}
881160µseval $fullload;
# spent 2.61ms executing statements in string eval
# includes 177µs spent executing 10 calls to 20 subs defined therein.
8911µsif ($@ ne '') {
90 die ("Failed to initialize AUTOLOAD: $@\n");
91}
92
93=head1 COPYRIGHT
94
- -
109117µs1;
 
# spent 34µs within Lingua::Stem::AutoLoader::CORE:subst which was called 10 times, avg 3µs/call: # 10 times (34µs+0s) by Lingua::Stem::BEGIN@7 at line 85, avg 3µs/call
sub Lingua::Stem::AutoLoader::CORE:subst; # opcode