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

Filename/usr/lib/perl5/Readonly/XS.pm
StatementsExecuted 28 statements in 644µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11133µs41µsReadonly::XS::::BEGIN@18Readonly::XS::BEGIN@18
11123µs23µsReadonly::XS::::importReadonly::XS::import
11116µs41µsReadonly::XS::::BEGIN@19Readonly::XS::BEGIN@19
11113µs35µsReadonly::XS::::BEGIN@32Readonly::XS::BEGIN@32
11110µs32µsReadonly::XS::::BEGIN@45Readonly::XS::BEGIN@45
1119µs60µsReadonly::XS::::BEGIN@20Readonly::XS::BEGIN@20
1119µs22µsReadonly::XS::::BEGIN@46Readonly::XS::BEGIN@46
1116µs6µsReadonly::XS::::BEGIN@31Readonly::XS::BEGIN@31
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1=for gpg
2
- -
16package Readonly::XS;
17
18364µs249µs
# spent 41µs (33+8) within Readonly::XS::BEGIN@18 which was called: # once (33µs+8µs) by Readonly::BEGIN@2 at line 18
use strict;
# spent 41µs making 1 call to Readonly::XS::BEGIN@18 # spent 8µs making 1 call to strict::import
19337µs266µs
# spent 41µs (16+25) within Readonly::XS::BEGIN@19 which was called: # once (16µs+25µs) by Readonly::BEGIN@2 at line 19
use warnings;
# spent 41µs making 1 call to Readonly::XS::BEGIN@19 # spent 25µs making 1 call to warnings::import
20357µs2110µs
# spent 60µs (9+50) within Readonly::XS::BEGIN@20 which was called: # once (9µs+50µs) by Readonly::BEGIN@2 at line 20
use vars qw($VERSION $MAGIC_COOKIE %PL_COMPAT);
# spent 60µs making 1 call to Readonly::XS::BEGIN@20 # spent 50µs making 1 call to vars::import
21
221500ns$VERSION = '1.04';
23
241900nsrequire XSLoader;
251259µs1250µsXSLoader::load('Readonly::XS', $VERSION);
# spent 250µs making 1 call to XSLoader::load
26
27
28# It is an error to use this from any module but Readonly.
29# But sooner or later, someone will.
30BEGIN
31
# spent 6µs within Readonly::XS::BEGIN@31 which was called: # once (6µs+0s) by Readonly::BEGIN@2 at line 38
{
32351µs257µs
# spent 35µs (13+22) within Readonly::XS::BEGIN@32 which was called: # once (13µs+22µs) by Readonly::BEGIN@2 at line 32
no warnings 'uninitialized';
# spent 35µs making 1 call to Readonly::XS::BEGIN@32 # spent 22µs making 1 call to warnings::unimport
3316µs if ($MAGIC_COOKIE ne "Do NOT use or require Readonly::XS unless you're me.")
34 {
35 require Carp;
36 Carp::croak("Readonly::XS is not a standalone module. You should not use it directly.");
37 }
38143µs16µs}
# spent 6µs making 1 call to Readonly::XS::BEGIN@31
39
40sub import
41
# spent 23µs within Readonly::XS::import which was called: # once (23µs+0s) by Readonly::BEGIN@2 at line 2 of (eval 1038)[Readonly.pm:49]
{
42312µs my $func;
43 for $func (qw/is_sv_readonly make_sv_readonly/)
44 {
45329µs253µs
# spent 32µs (10+22) within Readonly::XS::BEGIN@45 which was called: # once (10µs+22µs) by Readonly::BEGIN@2 at line 45
no strict 'refs';
# spent 32µs making 1 call to Readonly::XS::BEGIN@45 # spent 22µs making 1 call to strict::unimport
46362µs235µs
# spent 22µs (9+13) within Readonly::XS::BEGIN@46 which was called: # once (9µs+13µs) by Readonly::BEGIN@2 at line 46
no warnings 'redefine';
# spent 22µs making 1 call to Readonly::XS::BEGIN@46 # spent 13µs making 1 call to warnings::unimport
47218µs *{"Readonly::$func"} = \&$func;
48 }
49 $Readonly::XSokay = 1;
50}
51
52
5315µs1;
54__END__