line |
true |
false |
branch |
119
|
0 |
0 |
ref $_[0] ? : |
134
|
0 |
0 |
unless length $_ |
147
|
0 |
0 |
unless (/^[\t\ ]/) |
149
|
0 |
0 |
if ($t =~ /^([A-Za-z0-9-]+)\: (.*)$/) { } |
150
|
0 |
0 |
if exists $header{$1} |
161
|
0 |
0 |
if (defined $header{'content-type'} and not $header{'content-type'} =~ m[^text/plain]i) |
167
|
0 |
0 |
if (defined $header{'content-transfer-encoding'} and not $header{'content-transfer-encoding'} =~ /^(7bit|8bit|quoted-printable)/i) |
183
|
0 |
0 |
if /(^\>*)/ |
186
|
0 |
0 |
if (length $line > 80) |
187
|
0 |
0 |
if $len > 80 |
188
|
0 |
0 |
unless exists $meta{'maxlen'} and $meta{'maxlen'} > $len |
193
|
0 |
0 |
if (scalar @words) |
194
|
0 |
0 |
if ($words[0] =~ /^\>/) { } |
203
|
0 |
0 |
if (/[^A-Za-z0-9]{3,}/) |
204
|
0 |
0 |
if m[(\.{3,3}|://)] |
213
|
0 |
0 |
if (exists $meta{'hassig'}) |
215
|
0 |
0 |
if (exists $meta{'siglines'} and $meta{'siglines'} > 4) { } |
|
0 |
0 |
elsif ($len > 80) { } |
223
|
0 |
0 |
if /^--\ ?$/ |
224
|
0 |
0 |
if $line eq '--' |
236
|
0 |
0 |
if (exists $meta{'siglines'} and $meta{'siglines'} > 4) |
241
|
0 |
0 |
if (exists $meta{'buag'} and $meta{'buag'} > 10) |
246
|
0 |
0 |
if (exists $meta{'toolong'}) |
251
|
0 |
0 |
if (exists $meta{'isbinary'}) |
258
|
0 |
0 |
if defined $header{'newsgroups'} |
263
|
0 |
0 |
if ($lscore | $bscore) |