| line |
true |
false |
branch |
|
27
|
286 |
1110 |
if (defined(my $val = shift())) |
|
28
|
0 |
286 |
if @_ |
|
38
|
0 |
0 |
if (my $val = shift()) |
|
39
|
0 |
0 |
if @_ |
|
49
|
0 |
36 |
if (my $val = shift()) |
|
50
|
0 |
0 |
if @_ |
|
70
|
0 |
4 |
unless (defined $file) |
|
73
|
0 |
4 |
if (ref $file eq 'GLOB') { } |
|
76
|
0 |
4 |
unless open $fh, ">", $file |
|
79
|
0 |
4 |
if $self->is_section and not $self->is_root |
|
87
|
4 |
0 |
unless ref $file eq "GLOB" |
|
94
|
39 |
13 |
if ($opts{'indent'}) |
|
95
|
3 |
36 |
if ($self->is_comment) { } |
|
96
|
1 |
2 |
if ($opts{'reindent_comments'}) |
|
103
|
12 |
24 |
if ($opts{'tabstop'}) { } |
|
107
|
13 |
0 |
if ($i < @{$opts{'tabstop'};}) |
|
108
|
1 |
12 |
if (($off = $opts{'tabstop'}[$i] - length($s)) <= 0) |
|
142
|
236 |
0 |
if (defined(my $v = $self->orig)) |
|
145
|
0 |
0 |
unless $self->kw |