| line |
true |
false |
branch |
|
37
|
0 |
3 |
if (defined $buff) { } |
|
40
|
0 |
0 |
unless $raf->Read($tmp, 1024) |
|
43
|
0 |
3 |
unless $raf->Read($buff, 1024) |
|
46
|
0 |
3 |
unless $buff =~ /^P([1-6])\s+/g |
|
49
|
3 |
0 |
if ($buff =~ /\G#/cg) { } |
|
51
|
0 |
3 |
unless $buff =~ /\G ?(.*[\n\r]+(#.*[\n\r]+)*)\s*/g |
|
53
|
0 |
3 |
if $buff =~ /\G#/cg |
|
57
|
0 |
3 |
unless $buff =~ /\G(\S+)\s+(\S+)\s+/g |
|
61
|
0 |
3 |
if $type eq "PBM" |
|
62
|
0 |
3 |
if ($buff =~ /\G\s*#/cg) |
|
63
|
0 |
0 |
unless $buff =~ /\G ?(.*[\n\r]+(#.*[\n\r]+)*)\s*/g |
|
64
|
0 |
0 |
unless exists $info{'Comment'} |
|
66
|
0 |
0 |
if $buff =~ /\G#/cg |
|
68
|
0 |
3 |
unless $buff =~ /\G(\S+)\s/g |
|
74
|
3 |
9 |
if $_ eq "Comment" |
|
75
|
0 |
9 |
unless $info{$_} =~ /^\d+$/ |
|
77
|
3 |
0 |
if (defined $info{'Comment'}) |
|
80
|
0 |
3 |
if $info{'Comment'} =~ /^
|
|
87
|
1 |
2 |
if ($outfile) |
|
91
|
1 |
0 |
if ($et->IsOverwriting($nvHash, $oldComment)) { } |
|
|
0 |
0 |
elsif ($seal and $et->{'DEL_GROUP'}{'SEAL'}) { } |
|
93
|
1 |
0 |
if defined $oldComment |
|
94
|
1 |
0 |
if defined $newComment |
|
103
|
1 |
0 |
if (defined $newComment) |
|
108
|
1 |
0 |
if $type ne "PBM" |
|
110
|
0 |
1 |
unless &Write($outfile, $hdr, substr($buff, $len)) |
|
113
|
0 |
0 |
unless &Write($outfile, $buff) |
|
120
|
0 |
2 |
if ($verbose > 2) |
|
124
|
0 |
2 |
if ($seal) |
|
130
|
8 |
0 |
if defined $info{$tag} |