| line |
true |
false |
branch |
|
62
|
0 |
1 |
if $@ |
|
85
|
0 |
25 |
if ($var eq '') |
|
87
|
0 |
25 |
if ($var =~ /^$settables$/o) |
|
92
|
8 |
17 |
if $var =~ /^[\$\@%&]/ |
|
93
|
8 |
17 |
if $var =~ /^[\$\@%&]/ |
|
97
|
2 |
23 |
if $var eq 'croak' |
|
98
|
2 |
23 |
if $var eq 'carp' |
|
99
|
2 |
23 |
if $var eq 'make_storable' |
|
100
|
2 |
23 |
if $var eq 'make_unstorable' |
|
109
|
8 |
4 |
if $storable_var =~ s/([\$\@%&])// |
|
112
|
0 |
12 |
if $storable_var =~ s/(.+::)// |
|
114
|
2 |
10 |
if ($type eq '$') { } |
|
|
2 |
8 |
elsif ($type eq '@') { } |
|
|
2 |
6 |
elsif ($type eq '%') { } |
|
|
2 |
4 |
elsif ($type eq '&') { } |
|
138
|
4 |
0 |
if $var =~ /^[\$\@%&]/ |
|
165
|
0 |
0 |
if ($arg =~ /^$settables$/o) { } |
|
173
|
0 |
0 |
if $init{'store_vars'} |
|
174
|
0 |
0 |
if $init{'stack_trace'} |
|
175
|
0 |
0 |
if $init{'store_env'} |
|
179
|
0 |
0 |
$Carp::Notify::fatal ? : |
|
183
|
0 |
0 |
if $errors |
|
184
|
0 |
0 |
if $stored_vars |
|
185
|
0 |
0 |
if $init{'stack_trace'} |
|
186
|
0 |
0 |
if $init{'store_env'} |
|
188
|
0 |
0 |
$Carp::Notify::fatal && $init{'log_explode'} ? : |
|
|
0 |
0 |
!$Carp::Notify::fatal && $init{'log_notify'} ? : |
|
202
|
0 |
0 |
if $init{'email_it'} |
|
212
|
0 |
0 |
if ($Carp::Notify::fatal) { } |
|
213
|
0 |
0 |
if ($init{'die_quietly'}) { } |
|
|
0 |
0 |
elsif ($init{'death_function'}) { } |
|
217
|
0 |
0 |
if (ref $init{'death_function'} eq 'CODE') { } |
|
224
|
0 |
0 |
if $init{'death_function'} =~ s/(.+::)// |
|
231
|
0 |
0 |
if ($init{'die_to_stdout'}) { } |
|
232
|
0 |
0 |
if $init{'die_everywhere'} |
|
237
|
0 |
0 |
if $init{'die_everywhere'} |
|
265
|
0 |
0 |
if $] >= 5.006 |
|
270
|
0 |
0 |
if $caller[$_] |
|
292
|
0 |
0 |
if (ref $file) { } |
|
296
|
0 |
0 |
unless open LOG, ">>$file" |
|
298
|
0 |
0 |
unless close LOG |
|
306
|
0 |
0 |
unless $Carp::Notify::can_email |
|
316
|
0 |
0 |
if $s_tries < 0 |
|
321
|
0 |
0 |
if $c_tries < 0 |
|
340
|
0 |
0 |
if $i_say |
|
343
|
0 |
0 |
if (not $response or $response =~ /^[45]/) |
|
347
|
0 |
0 |
if $response =~ /^221/ |
|
382
|
0 |
1 |
if $diffhour > 12 |
|
383
|
0 |
1 |
if $diffhour < -12 |
|
394
|
0 |
0 |
if (ref $func eq 'CODE') { } |
|
|
0 |
0 |
elsif ($func) { } |
|
401
|
0 |
0 |
if $$func =~ s/(.+::)// |