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

Filename/usr/share/perl/5.10/Carp.pm
StatementsExecuted 12 statements in 1.25ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sCarp::::carpCarp::carp
0000s0sCarp::::cluckCarp::cluck
0000s0sCarp::::confessCarp::confess
0000s0sCarp::::croakCarp::croak
0000s0sCarp::::export_failCarp::export_fail
0000s0sCarp::::longmessCarp::longmess
0000s0sCarp::::longmess_jmpCarp::longmess_jmp
0000s0sCarp::::shortmessCarp::shortmess
0000s0sCarp::::shortmess_jmpCarp::shortmess_jmp
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Carp;
2
311µsour $VERSION = '1.11';
4# this file is an utra-lightweight stub. The first time a function is
5# called, Carp::Heavy is loaded, and the real short/longmessmess_jmp
6# subs are installed
7
81500nsour $MaxEvalLen = 0;
91300nsour $Verbose = 0;
101500nsour $CarpLevel = 0;
111500nsour $MaxArgLen = 64; # How much of each argument to print. 0 = all.
121400nsour $MaxArgNums = 8; # How many arguments to print. 0 = all.
13
1411.21msrequire Exporter;
15121µsour @ISA = ('Exporter');
1612µsour @EXPORT = qw(confess croak carp);
1712µsour @EXPORT_OK = qw(cluck verbose longmess shortmess);
181900nsour @EXPORT_FAIL = qw(verbose); # hook to enable verbose mode
19
20# if the caller specifies verbose usage ("perl -MCarp=verbose script.pl")
21# then the following method will be called by the Exporter which knows
22# to do this thanks to @EXPORT_FAIL, above. $_[1] will contain the word
23# 'verbose'.
24
25sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ }
26
27# fixed hooks for stashes to point to
28sub longmess { goto &longmess_jmp }
29sub shortmess { goto &shortmess_jmp }
30# these two are replaced when Carp::Heavy is loaded
31sub longmess_jmp {
32 local($@, $!);
33 eval { require Carp::Heavy };
34 return $@ if $@;
35 goto &longmess_real;
36}
37sub shortmess_jmp {
38 local($@, $!);
39 eval { require Carp::Heavy };
40 return $@ if $@;
41 goto &shortmess_real;
42}
43
44sub croak { die shortmess @_ }
45sub confess { die longmess @_ }
46sub carp { warn shortmess @_ }
47sub cluck { warn longmess @_ }
48
49111µs1;
50__END__