| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless my $dir = shift() |
|
61
|
0 |
0 |
unless my $id = shift() |
|
69
|
0 |
0 |
unless open my $hh, "$$self{'input_dir'}/$$self{'message_id'}-H" |
|
71
|
0 |
0 |
unless open my $dh, "$$self{'input_dir'}/$$self{'message_id'}-D" |
|
79
|
0 |
0 |
if $tmp ne "$$self{'message_id'}-H" |
|
137
|
0 |
0 |
if ($tmp =~ /^-(acl[mc]) (\d+) (\d+)/) { } |
|
|
0 |
0 |
elsif ($tmp =~ /^-acl (\d+) (\d+)/) { } |
|
144
|
0 |
0 |
$num < 10 ? : |
|
149
|
0 |
0 |
unless $tmp =~ s/^-// |
|
170
|
0 |
0 |
unless $tmp =~ /^[XYN][XYN]/ |
|
223
|
0 |
0 |
unless $line =~ /^((\d+)([ BCFIPRST*]) )/ |
|
228
|
0 |
0 |
if $char ne '*' |
|
234
|
0 |
0 |
if $tmp ne "$$self{'message_id'}-D" |
|
371
|
0 |
0 |
if ($attr =~ /^([a-zA-Z0-9_]+)$/ and exists $$self{$attr}) { } |