|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
106
 | 
 0  | 
 0  | 
 unless $args{'infh'} or $args{'outfh'}  | 
 
| 
130
 | 
 0  | 
 0  | 
 if (@_)  | 
 
| 
269
 | 
 0  | 
 0  | 
 if ($Chooser) { }  | 
 
| 
276
 | 
 0  | 
 0  | 
 if ($rc eq 'EDIT')  | 
 
| 
285
 | 
 0  | 
 0  | 
 if $rc eq 'EXIT'  | 
 
| 
288
 | 
 0  | 
 0  | 
 if $newheader  | 
 
| 
290
 | 
 0  | 
 0  | 
 if ($rc eq 'KEEP') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($rc eq 'SKIP') { }  | 
 
| 
291
 | 
 0  | 
 0  | 
 if $VERBOSE  | 
 
| 
292
 | 
 0  | 
 0  | 
 if ($TempFile) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($$Self{'safe_copy'} or $oldsize != $$header{'size'}) { }  | 
 
| 
311
 | 
 0  | 
 0  | 
 if ($TempFile) { }  | 
 
| 
312
 | 
 0  | 
 0  | 
 if $VERBOSE  | 
 
| 
316
 | 
 0  | 
 0  | 
 if $VERBOSE  | 
 
| 
326
 | 
 0  | 
 0  | 
 if $VERBOSE  | 
 
| 
328
 | 
 0  | 
 0  | 
 if ($$Self{'safe_copy'}) { }  | 
 
| 
361
 | 
 0  | 
 0  | 
 unless ($$Self{'infh'})  | 
 
| 
369
 | 
 0  | 
 0  | 
 unless ($n)  | 
 
| 
371
 | 
 0  | 
 0  | 
 if $bytes == 512 * $nblocks  | 
 
| 
404
 | 
 0  | 
 0  | 
 unless ($$Self{'outfh'})  | 
 
| 
410
 | 
 0  | 
 0  | 
 if (length $string > $bytes) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif (length $string < $bytes) { }  | 
 
| 
419
 | 
 0  | 
 0  | 
 unless ($n)  | 
 
| 
455
 | 
 0  | 
 0  | 
 unless $block  | 
 
| 
457
 | 
 0  | 
 0  | 
 if $header  | 
 
| 
458
 | 
 0  | 
 0  | 
 unless $Opts{'SkipInvalid'}  | 
 
| 
462
 | 
 0  | 
 0  | 
 unless $header  | 
 
| 
464
 | 
 0  | 
 0  | 
 if ($skipped)  | 
 
| 
515
 | 
 0  | 
 0  | 
 unless 512 == length $block  | 
 
| 
518
 | 
 0  | 
 0  | 
 if substr($block, 0, 1) eq "\000"  | 
 
| 
522
 | 
 0  | 
 0  | 
 unless 15 == @items  | 
 
| 
531
 | 
 0  | 
 0  | 
 unless (unpack('%16C*', $block) == $chksum)  | 
 
| 
590
 | 
 0  | 
 0  | 
 if (exists $hash{$key}) { }  | 
 
| 
635
 | 
 0  | 
 0  | 
 if (length $block < 512) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif (length $block > 512) { }  | 
 
| 
660
 | 
 0  | 
 0  | 
 if $n > 16  | 
 
| 
682
 | 
 0  | 
 0  | 
 if $n > 16  | 
 
| 
726
 | 
 0  | 
 0  | 
 if $n > 16  | 
 
| 
728
 | 
 0  | 
 0  | 
 if length $dump > $bytes  | 
 
| 
753
 | 
 0  | 
 0  | 
 $bytes > 512 ? :  | 
 
| 
757
 | 
 0  | 
 0  | 
 unless ($n)  | 
 
| 
763
 | 
 0  | 
 0  | 
 if (length $block < 512)  |