| line |
true |
false |
branch |
|
43
|
0 |
3 |
unless open my $fh, "<", $self->filename |
|
55
|
2 |
32 |
if ($_ eq "") |
|
61
|
1 |
31 |
if (/^#.*/) |
|
70
|
10 |
21 |
if ($sections{$kw}) { } |
|
114
|
0 |
13 |
if @{$self->{'_stack'};} == 1 |
|
143
|
0 |
4 |
if (ref $file eq 'GLOB') { } |
|
146
|
0 |
4 |
unless open $fh, ">", $file |
|
154
|
39 |
13 |
if ($_{'indent'}) |
|
155
|
3 |
36 |
if ($node->is_comment) { } |
|
156
|
1 |
2 |
if ($_{'reindent_comments'}) |
|
163
|
12 |
24 |
if ($_{'tabstop'}) { } |
|
167
|
13 |
0 |
if ($i < @{$_{'tabstop'};}) |
|
168
|
1 |
12 |
if (($off = $_{'tabstop'}[$i] - length($s)) <= 0) |
|
183
|
4 |
0 |
unless ref $file eq "GLOB" |
|
189
|
4 |
5 |
if (@_) |
|
190
|
2 |
2 |
if (@_ == 1) { } |
|
|
2 |
0 |
elsif (@_ % 2 == 0) { } |
|
195
|
2 |
0 |
if (defined($v = delete $_{'enable'})) |
|
198
|
1 |
1 |
if (defined($v = delete $_{'command'})) |
|
201
|
0 |
2 |
if (defined($v = delete $_{'path'})) |
|
204
|
0 |
2 |
if keys %_ |
|
210
|
5 |
4 |
if ($self->{'_lint'}{'enable'}) |
|
212
|
0 |
5 |
if ($self->{'_lint'}{'path'}) |
|
214
|
0 |
0 |
unless ("File::Spec"->file_name_is_absolute($prog)) |
|
217
|
0 |
0 |
if (-x $name) |
|
222
|
0 |
0 |
if ($args) |
|
234
|
0 |
0 |
if @_ % 2 |
|
239
|
0 |
0 |
unless $self->tree |
|
240
|
0 |
0 |
unless $self->tree->is_dirty |
|
245
|
0 |
0 |
if (my $cmd = $self->lint) |
|
248
|
0 |
0 |
unless ($ok) |
|
250
|
0 |
0 |
if ($errbuf and @$errbuf) |
|
256
|
0 |
0 |
if $dry_run |
|
260
|
0 |
0 |
unless rename $tempfile, $self->filename |
|
279
|
0 |
0 |
if (-f $backup) |
|
280
|
0 |
0 |
unless unlink $backup |
|
283
|
0 |
0 |
unless rename $self->filename, $self->backup_name |