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

Filename/usr/share/perl5/Lingua/Stem/AutoLoader.pm
StatementsExecuted 45 statements in 550µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs31µsLingua::Stem::AutoLoader::::BEGIN@43Lingua::Stem::AutoLoader::BEGIN@43
11118µs74µsLingua::Stem::AutoLoader::::BEGIN@44Lingua::Stem::AutoLoader::BEGIN@44
101118µs18µsLingua::Stem::AutoLoader::::CORE:substLingua::Stem::AutoLoader::CORE:subst (opcode)
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
- -
43392µs238µs
# spent 31µs (24+7) within Lingua::Stem::AutoLoader::BEGIN@43 which was called: # once (24µs+7µs) by Lingua::Stem::BEGIN@7 at line 43
use strict;
# spent 31µs making 1 call to Lingua::Stem::AutoLoader::BEGIN@43 # spent 7µs making 1 call to strict::import
443248µs2130µs
# spent 74µs (18+56) within Lingua::Stem::AutoLoader::BEGIN@44 which was called: # once (18µs+56µs) by Lingua::Stem::BEGIN@7 at line 44
use vars qw($VERSION $AUTOLOAD);
# spent 74µs making 1 call to Lingua::Stem::AutoLoader::BEGIN@44 # spent 56µs making 1 call to vars::import
45
4611µs$VERSION = "1.02";
47
4811µsmy $_autoloaded_functions = {};
49
5013µ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
631800nsmy $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) {
84104µs my ($loader) = $autoloader;
851044µs1018µs $loader =~ s/(----packagename----)/$packagename/;
# spent 18µs making 10 calls to Lingua::Stem::AutoLoader::CORE:subst, avg 2µs/call
861015µs $fullload .= $loader;
87}
881113µseval $fullload;
# spent 1.83ms executing statements in string eval
# includes 131µ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
- -
109125µs1;
 
# spent 18µs within Lingua::Stem::AutoLoader::CORE:subst which was called 10 times, avg 2µs/call: # 10 times (18µs+0s) by Lingua::Stem::BEGIN@7 at line 85, avg 2µs/call
sub Lingua::Stem::AutoLoader::CORE:subst; # opcode