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

Filename/usr/lib/perl5/Readonly/XS.pm
StatementsExecuted 28 statements in 692µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11122µs28µsReadonly::XS::::BEGIN@18Readonly::XS::BEGIN@18
11118µs41µsReadonly::XS::::BEGIN@32Readonly::XS::BEGIN@32
11116µs42µsReadonly::XS::::BEGIN@19Readonly::XS::BEGIN@19
11113µs13µsReadonly::XS::::importReadonly::XS::import
11111µs25µsReadonly::XS::::BEGIN@46Readonly::XS::BEGIN@46
1119µs52µsReadonly::XS::::BEGIN@45Readonly::XS::BEGIN@45
1119µs68µsReadonly::XS::::BEGIN@20Readonly::XS::BEGIN@20
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
18388µs233µs
# spent 28µs (22+5) within Readonly::XS::BEGIN@18 which was called: # once (22µs+5µs) by Readonly::BEGIN@2 at line 18
use strict;
# spent 28µs making 1 call to Readonly::XS::BEGIN@18 # spent 5µs making 1 call to strict::import
19336µs268µs
# spent 42µs (16+26) within Readonly::XS::BEGIN@19 which was called: # once (16µs+26µs) by Readonly::BEGIN@2 at line 19
use warnings;
# spent 42µs making 1 call to Readonly::XS::BEGIN@19 # spent 26µs making 1 call to warnings::import
20368µs2128µs
# spent 68µs (9+59) within Readonly::XS::BEGIN@20 which was called: # once (9µs+59µs) by Readonly::BEGIN@2 at line 20
use vars qw($VERSION $MAGIC_COOKIE %PL_COMPAT);
# spent 68µs making 1 call to Readonly::XS::BEGIN@20 # spent 59µs making 1 call to vars::import
21
221700ns$VERSION = '1.04';
23
241900nsrequire XSLoader;
251277µs1269µsXSLoader::load('Readonly::XS', $VERSION);
# spent 269µ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
{
32356µs264µs
# spent 41µs (18+23) within Readonly::XS::BEGIN@32 which was called: # once (18µs+23µs) by Readonly::BEGIN@2 at line 32
no warnings 'uninitialized';
# spent 41µs making 1 call to Readonly::XS::BEGIN@32 # spent 23µ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 }
38133µs16µs}
# spent 6µs making 1 call to Readonly::XS::BEGIN@31
39
40sub import
41
# spent 13µs within Readonly::XS::import which was called: # once (13µs+0s) by Readonly::BEGIN@2 at line 2 of (eval 1020)[Readonly.pm:49]
{
42516µs my $func;
43 for $func (qw/is_sv_readonly make_sv_readonly/)
44 {
45338µs294µs
# spent 52µs (9+43) within Readonly::XS::BEGIN@45 which was called: # once (9µs+43µs) by Readonly::BEGIN@2 at line 45
no strict 'refs';
# spent 52µs making 1 call to Readonly::XS::BEGIN@45 # spent 43µs making 1 call to strict::unimport
46367µs238µs
# spent 25µs (11+14) within Readonly::XS::BEGIN@46 which was called: # once (11µs+14µs) by Readonly::BEGIN@2 at line 46
no warnings 'redefine';
# spent 25µs making 1 call to Readonly::XS::BEGIN@46 # spent 14µs making 1 call to warnings::unimport
47 *{"Readonly::$func"} = \&$func;
48 }
49 $Readonly::XSokay = 1;
50}
51
52
5315µs1;
54__END__