| line |
true |
false |
branch |
|
57
|
1 |
9 |
if (not defined $val) { } |
|
|
1 |
8 |
elsif (ref $val eq 'HASH') { } |
|
|
4 |
4 |
elsif ($val) { } |
|
62
|
1 |
0 |
if $_SDATA->{'enabled'} |
|
74
|
6 |
0 |
unless (defined $old_sdata) |
|
85
|
1 |
11 |
if ($_[$i] eq ':Carp') { } |
|
|
1 |
10 |
elsif ($_[$i] eq ':Syslog') { } |
|
|
0 |
10 |
elsif ($_[$i] =~ /^\+/) { } |
|
|
1 |
9 |
elsif ($_[$i] =~ /^(dis|en)able$/) { } |
|
96
|
1 |
0 |
$1 eq 'dis' ? : |
|
98
|
0 |
1 |
if defined $change and $change != $val |
|
107
|
8 |
1 |
if (not defined $change or $change) { } |
|
118
|
6 |
5 |
$_SDATA->{'enabled'} ? : |
|
146
|
10 |
75 |
if (ref $sub_msg eq 'ARRAY') { } |
|
|
20 |
55 |
elsif (ref $sub_msg eq 'HASH') { } |
|
|
9 |
46 |
elsif (ref $sub_msg) { } |
|
148
|
5 |
30 |
if (ref $v) { } |
|
150
|
5 |
11 |
if ("$v" eq $_) |
|
151
|
0 |
5 |
unless $found |
|
159
|
30 |
20 |
if (ref $sub_msg->{$k}) { } |
|
161
|
5 |
52 |
if ("$sub_msg->{$k}" eq $_) |
|
162
|
25 |
5 |
unless $found |
|
175
|
25 |
71 |
unless defined $$sub_msg |
|
177
|
1 |
245 |
ref $_SDATA->{'scrub_data'}{$_} eq 'CODE' ? : |
|
186
|
0 |
300 |
ref $_SDATA->{'scrub_data'}{$_} eq 'CODE' ? : |
|
198
|
31 |
8 |
if ($#$copy == 0) |
|
207
|
0 |
0 |
if (defined $x) |
|
209
|
0 |
0 |
if $_SDATA->{'scrub_data'}{$_} = $x->{$_} |
|
216
|
9 |
0 |
if (defined $x) |
|
218
|
0 |
18 |
if not defined $_ or $_ eq '' |
|
229
|
17 |
6 |
if (defined $_SDATA->{'SIG'}{$_}{'scrubber'} and defined $SIG{$_} and $SIG{$_} eq $_SDATA->{'SIG'}{$_}{'scrubber'}) { } |
|
|
0 |
6 |
elsif (defined $_SDATA->{'SIG'}{$_}{'old'}) { } |
|
248
|
0 |
3 |
defined $_SDATA->{'SIG'}{'__DIE__'}{'old'} && $_SDATA->{'SIG'}{'__DIE__'}{'old'} ne '' ? : |
|
253
|
4 |
13 |
defined $_SDATA->{'SIG'}{'__WARN__'}{'old'} && $_SDATA->{'SIG'}{'__WARN__'}{'old'} ne '' ? : |
|
257
|
18 |
19 |
unless $_SDATA->{'enabled'} |
|
260
|
2 |
4 |
if defined $SIG{$sig_name} and defined $_SDATA->{'SIG'}{$sig_name}{'scrubber'} and $SIG{$sig_name} eq $_SDATA->{'SIG'}{$sig_name}{'scrubber'} |
|
263
|
18 |
15 |
if $sig_name eq '__WARN__' |
|
264
|
15 |
18 |
if $sig_name eq '__DIE__' |
|
273
|
11 |
10 |
if ($_ eq 'WARN') |
|
274
|
1 |
20 |
if ($_ eq '__WARN__') |
|
275
|
9 |
12 |
if ($_ eq 'DIE') |
|
276
|
0 |
21 |
if ($_ eq '__DIE__') |
|
278
|
2 |
19 |
if defined $_SDATA->{'SIG'}{$sig_name} |
|
291
|
23 |
6 |
if (defined $_SDATA->{'METHOD'}{$fullname}{'scrubber'} and defined $current_method and $current_method eq $_SDATA->{'METHOD'}{$fullname}{'scrubber'}) { } |
|
|
0 |
6 |
elsif (defined $_SDATA->{'METHOD'}{$fullname}{'old'}) { } |
|
309
|
23 |
20 |
unless $_SDATA->{'enabled'} |
|
314
|
17 |
29 |
if ($fullname eq 'warnings::warnif') |
|
316
|
0 |
46 |
unless (defined $r_orig) |
|
325
|
0 |
25 |
if defined $_SDATA->{'METHOD'}{$fullname} |
|
360
|
5 |
0 |
if (defined $x) |