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

Filename/usr/lib/perl/5.10/mro.pm
StatementsExecuted 10 statements in 710µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
26811738µs738µsmro::::method_changed_in mro::method_changed_in (xsub)
11128µs35µsmro::::BEGIN@10 mro::BEGIN@10
11116µs39µsmro::::BEGIN@11 mro::BEGIN@11
31113µs13µsmro::::set_mro mro::set_mro (xsub)
0000s0smaybe::next::::methodmaybe::next::method
0000s0smro::::import mro::import
0000s0snext::::can next::can
0000s0snext::::method next::method
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# mro.pm
2#
3# Copyright (c) 2007 Brandon L Black
4# Copyright (c) 2008 Larry Wall and others
5#
6# You may distribute under the terms of either the GNU General Public
7# License or the Artistic License, as specified in the README file.
8#
9package mro;
10349µs243µs
# spent 35µs (28+8) within mro::BEGIN@10 which was called: # once (28µs+8µs) by Modern::Perl::BEGIN@20 at line 10
use strict;
# spent 35µs making 1 call to mro::BEGIN@10 # spent 8µs making 1 call to strict::import
113392µs261µs
# spent 39µs (16+22) within mro::BEGIN@11 which was called: # once (16µs+22µs) by Modern::Perl::BEGIN@20 at line 11
use warnings;
# spent 39µs making 1 call to mro::BEGIN@11 # spent 22µs making 1 call to warnings::import
12
13# mro.pm versions < 1.00 reserved for MRO::Compat
14# for partial back-compat to 5.[68].x
1511µsour $VERSION = '1.01';
16
17sub import {
18 mro::set_mro(scalar(caller), $_[1]) if $_[1];
19}
20
21package # hide me from PAUSE
22 next;
23
24sub can { mro::_nextcan($_[0], 0) }
25
26sub method {
27 my $method = mro::_nextcan($_[0], 1);
28 goto &$method;
29}
30
31package # hide me from PAUSE
32 maybe::next;
33
34sub method {
35 my $method = mro::_nextcan($_[0], 0);
36 goto &$method if defined $method;
37 return;
38}
39
4011µsrequire XSLoader;
411257µs1247µsXSLoader::load('mro', $VERSION);
# spent 247µs making 1 call to XSLoader::load
42
4319µs1;
44
45__END__
 
# spent 738µs within mro::method_changed_in which was called 268 times, avg 3µs/call: # 268 times (738µs+0s) by constant::import at line 113 of constant.pm, avg 3µs/call
sub mro::method_changed_in; # xsub
# spent 13µs within mro::set_mro which was called 3 times, avg 4µs/call: # 3 times (13µs+0s) by Modern::Perl::import at line 27 of Modern/Perl.pm, avg 4µs/call
sub mro::set_mro; # xsub