| line |
true |
false |
branch |
| 158 |
0 |
1 |
if ($$parms{'debug'}) |
| 176 |
0 |
0 |
defined $bytes ? : |
| 182 |
0 |
0 |
unless @_ == 2 or @_ == 3 |
| 186 |
0 |
0 |
unless (my $io = $ent->open('r')) |
| 191 |
0 |
0 |
unless ($io->close) |
| 199 |
0 |
2 |
unless @_ == 2 or @_ == 3 |
| 203 |
0 |
2 |
unless (open INFILE, "<$fname") |
| 209 |
0 |
2 |
unless (close INFILE) |
| 217 |
0 |
2 |
unless @_ == 2 or @_ == 3 |
| 227 |
1 |
1 |
if defined $parms |
| 235 |
0 |
2 |
unless $num_bytes == 4 |
| 236 |
0 |
2 |
if $debug |
| 237 |
0 |
2 |
unless $data eq $TNEF_SIGNATURE |
| 242 |
0 |
2 |
unless $num_bytes == 2 |
| 243 |
0 |
2 |
if $debug |
| 247 |
0 |
2 |
unless $num_bytes == 1 |
| 253 |
0 |
2 |
if $debug |
| 254 |
0 |
2 |
unless $is_msg or $is_att |
| 265 |
18 |
6 |
$is_msg ? : |
| 267 |
0 |
24 |
if $debug |
| 269 |
0 |
24 |
unless $num_bytes == 4 |
| 273 |
0 |
24 |
if $debug |
| 275 |
0 |
24 |
unless $att_name{$att_id} |
| 277 |
2 |
22 |
if ($att_id eq $att{'TnefVersion'}) { } |
| |
2 |
20 |
elsif ($att_id eq $att{'MessageClass'}) { } |
| |
1 |
19 |
elsif ($att_id eq $att{'AttachRenddata'}) { } |
| 278 |
0 |
2 |
if $is_att |
| 282 |
0 |
2 |
if $is_att |
| 286 |
0 |
1 |
if $is_msg |
| 291 |
0 |
19 |
if $is_att and not @atts and $att_name ne 'AttachRenddata' |
| 297 |
0 |
24 |
if $debug |
| 300 |
0 |
24 |
unless $num_bytes == 4 |
| 302 |
0 |
24 |
if $debug |
| 304 |
0 |
24 |
if $debug |
| 309 |
0 |
24 |
unless $data = _build_data($fd, $length, \$calc_chksum, $parms) |
| 311 |
0 |
24 |
if $debug |
| 315 |
0 |
24 |
unless $num_bytes == 2 |
| 317 |
0 |
24 |
if ($debug) |
| 321 |
1 |
23 |
unless $calc_chksum eq $file_chksum or $ignore_checksum |
| 328 |
0 |
23 |
unless defined $num_bytes |
| 329 |
1 |
22 |
if $num_bytes < 1 |
| 330 |
0 |
22 |
if $debug |
| 332 |
0 |
22 |
if $is_msg and $is_att |
| 335 |
22 |
0 |
if $is_msg or $is_att |
| 339 |
0 |
1 |
if $debug |
| 348 |
0 |
0 |
if ($length < $$parms{'debug_max_display'}) { } |
| 350 |
0 |
0 |
if ($att_id eq $att{'TnefVersion'}) { } |
| |
0 |
0 |
elsif (substr($att_id, 2) eq $atp{'Date'} and $length == 14) { } |
| |
0 |
0 |
elsif ($att_id eq $att{'AttachRenddata'} and $length == 14) { } |
| 375 |
0 |
0 |
unless my $io = $data->open('r') |
| 379 |
0 |
0 |
unless $io->close |
| 394 |
0 |
24 |
if ($cutoff eq 'NONE') { } |
| |
0 |
24 |
elsif ($cutoff eq 'ALL') { } |
| |
0 |
24 |
elsif ($cutoff < $length) { } |
| 401 |
24 |
0 |
$incore ? : |
| 408 |
22 |
2 |
if $length < $bufsiz |
| 414 |
0 |
26 |
unless $num_bytes == $bufsiz |
| 420 |
26 |
0 |
if $length < $bufsiz |
| 432 |
0 |
0 |
if exists $att{$_} |
| 436 |
0 |
0 |
if exists $att{$_} |
| 448 |
1 |
0 |
if wantarray |
| 475 |
1 |
0 |
if $name |
| 485 |
0 |
1 |
unless $data |
| 487 |
0 |
1 |
unless $pos >= 0 |
| 490 |
1 |
0 |
if $longname |
| 497 |
24 |
0 |
if @_ |
| 498 |
24 |
0 |
if @_ |
| 505 |
24 |
0 |
if @_ |