| line |
true |
false |
branch |
|
55
|
185 |
181 |
if $opts{'validate'} |
|
59
|
90 |
276 |
if ($error_rsv) |
|
62
|
185 |
181 |
unless (defined $mount) |
|
63
|
0 |
185 |
if ($error_rsv) { } |
|
81
|
0 |
1206672 |
unless &fetch_by_key($self->{'mount'}, $key, $value) |
|
106
|
0 |
90 |
if ($scalar_has_slash) |
|
118
|
181 |
0 |
if $self->{'mount'} |
|
140
|
0 |
91 |
unless my $ofile = $opts{'file'} |
|
142
|
0 |
91 |
unless my $source_hash = $opts{'source_hash'} |
|
143
|
1 |
90 |
unless defined $opts{'comment'} |
|
144
|
1 |
90 |
unless defined $opts{'variant'} |
|
156
|
1 |
90 |
if not defined $opts{'seed'} and $deterministic |
|
159
|
0 |
91 |
if delete $opts{'no_dedupe'} |
|
160
|
46 |
45 |
if $deterministic |
|
163
|
0 |
91 |
if delete $opts{'filter_undef'} |
|
165
|
0 |
91 |
if $variant > 5 |
|
168
|
0 |
91 |
if $variant < 5 |
|
172
|
0 |
91 |
if index($comment, "\000") >= 0 |
|
182
|
90 |
1 |
ref $seed ? : |
|
187
|
90 |
1 |
if ref $seed |
|
190
|
0 |
91 |
unless open my $ofh, '>', $tmp_file |
|
192
|
0 |
91 |
unless print $ofh $buf |
|
194
|
0 |
91 |
unless close $ofh |
|
196
|
0 |
91 |
unless rename $tmp_file, $ofile |
|
204
|
0 |
90 |
unless my $file = $opts{'file'} |
|
210
|
90 |
0 |
if ($self) { } |
|
231
|
0 |
90 |
if ($verbose) |
|
232
|
0 |
0 |
if (defined $variant) { } |