← 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:11:30 2013

Filename/usr/share/perl/5.10/Carp.pm
StatementsExecuted 12 statements in 839µs
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
31700nsour $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
81300nsour $MaxEvalLen = 0;
91200nsour $Verbose = 0;
101100nsour $CarpLevel = 0;
111200nsour $MaxArgLen = 64; # How much of each argument to print. 0 = all.
121200nsour $MaxArgNums = 8; # How many arguments to print. 0 = all.
13
141768µsrequire Exporter;
15117µsour @ISA = ('Exporter');
16142µsour @EXPORT = qw(confess croak carp);
1712µsour @EXPORT_OK = qw(cluck verbose longmess shortmess);
181500nsour @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
4918µs1;
50__END__