| line |
true |
false |
branch |
|
76
|
0 |
25 |
if ($var eq '') |
|
78
|
0 |
25 |
if ($var =~ /^$settables$/o) |
|
83
|
8 |
17 |
if $var =~ /^[\$\@%&]/ |
|
84
|
8 |
17 |
if $var =~ /^[\$\@%&]/ |
|
88
|
2 |
23 |
if $var eq 'croak' |
|
89
|
2 |
23 |
if $var eq 'carp' |
|
90
|
2 |
23 |
if $var eq 'make_storable' |
|
91
|
2 |
23 |
if $var eq 'make_unstorable' |
|
104
|
8 |
4 |
if $storable_var =~ s/([\$\@%&])// |
|
107
|
0 |
12 |
if $storable_var =~ s/(.+::)// |
|
109
|
2 |
10 |
if ($type eq '$') { } |
|
|
2 |
8 |
elsif ($type eq '@') { } |
|
|
2 |
6 |
elsif ($type eq '%') { } |
|
|
2 |
4 |
elsif ($type eq '&') { } |
|
133
|
4 |
0 |
if $var =~ /^[\$\@%&]/ |
|
160
|
0 |
0 |
if ($arg =~ /^$settables$/o) { } |
|
170
|
0 |
0 |
if $init{'store_vars'} |
|
171
|
0 |
0 |
if $init{'stack_trace'} |
|
172
|
0 |
0 |
if $init{'store_env'} |
|
176
|
0 |
0 |
$Carp::Notify::fatal ? : |
|
180
|
0 |
0 |
if $errors |
|
181
|
0 |
0 |
if $stored_vars |
|
182
|
0 |
0 |
if $init{'stack_trace'} |
|
183
|
0 |
0 |
if $init{'store_env'} |
|
196
|
0 |
0 |
$Carp::Notify::fatal && $init{'log_explode'} ? : |
|
|
0 |
0 |
!$Carp::Notify::fatal && $init{'log_notify'} ? : |
|
207
|
0 |
0 |
if $init{'email_it'} |
|
209
|
0 |
0 |
if ($Carp::Notify::fatal) { } |
|
210
|
0 |
0 |
if ($init{'die_quietly'}) { } |
|
|
0 |
0 |
elsif ($init{'death_function'}) { } |
|
214
|
0 |
0 |
if (ref $init{'death_function'} eq 'CODE') { } |
|
222
|
0 |
0 |
if $init{'death_function'} =~ s/(.+::)// |
|
229
|
0 |
0 |
if ($init{'die_to_stdout'}) { } |
|
230
|
0 |
0 |
if $init{'die_everywhere'} |
|
235
|
0 |
0 |
if $init{'die_everywhere'} |
|
263
|
0 |
0 |
if $] >= 5.006 |
|
268
|
0 |
0 |
if $caller[$_] |
|
291
|
0 |
0 |
if (ref $file) { } |
|
295
|
0 |
0 |
unless open LOG, ">>$file" |
|
297
|
0 |
0 |
unless close LOG |
|
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) { } |
|
402
|
0 |
0 |
if $$func =~ s/(.+::)// |