| 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 $Convert::TNEF::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 $Convert::TNEF::att_name{$att_id} |
|
277
|
2 |
22 |
if ($att_id eq $Convert::TNEF::att{'TnefVersion'}) { } |
|
|
2 |
20 |
elsif ($att_id eq $Convert::TNEF::att{'MessageClass'}) { } |
|
|
1 |
19 |
elsif ($att_id eq $Convert::TNEF::att{'AttachRenddata'}) { } |
|
278
|
0 |
2 |
if $is_att |
|
282
|
0 |
2 |
if $is_att |
|
286
|
0 |
1 |
if $is_msg |
|
291
|
0 |
5 |
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 $Convert::TNEF::att{'TnefVersion'}) { } |
|
|
0 |
0 |
elsif (substr($att_id, 2) eq $Convert::TNEF::atp{'Date'} and $length == 14) { } |
|
|
0 |
0 |
elsif ($att_id eq $Convert::TNEF::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 $Convert::TNEF::att{$_} |
|
436
|
0 |
0 |
if exists $Convert::TNEF::att{$_} |
|
448
|
1 |
0 |
if wantarray |
|
475
|
1 |
0 |
if $name |
|
485
|
0 |
1 |
unless $data |
|
487
|
0 |
1 |
if $pos < 0 |
|
488
|
0 |
1 |
unless $pos >= 0 |
|
491
|
1 |
0 |
if $longname |
|
498
|
24 |
0 |
if @_ |
|
499
|
24 |
0 |
if @_ |
|
506
|
24 |
0 |
if @_ |