| line |
true |
false |
branch |
|
74
|
54 |
0 |
unless ($key =~ /_/) |
|
80
|
0 |
54 |
if (exists $CONFIG{$key}) |
|
96
|
0 |
0 |
unless open my $fh, $file |
|
101
|
0 |
0 |
if (/^/i) |
|
117
|
0 |
0 |
if (/^/i) { } |
|
|
0 |
0 |
elsif (m[]i) { } |
|
127
|
0 |
0 |
$name ? : |
|
128
|
0 |
0 |
unless $closing |
|
142
|
0 |
0 |
if (m[]i) |
|
146
|
0 |
0 |
unless $closing |
|
156
|
0 |
0 |
if (not $CONFIG{$key} or $key =~ s/_//g and not $CONFIG{$key}) |
|
167
|
0 |
0 |
unless $$self{'_fh'} |
|
170
|
0 |
0 |
unless defined $_ |
|
172
|
0 |
0 |
unless /\S/ |
|
174
|
0 |
0 |
if /^\s*#/ |
|
181
|
0 |
0 |
if (s/\\$//) |
|
200
|
0 |
0 |
if ($token eq '\\') { } |
|
|
0 |
0 |
elsif ($token eq $quotechar) { } |
|
201
|
0 |
0 |
unless $line =~ /\G([$quotechar\\])/cg |
|
214
|
0 |
0 |
if $str =~ /^(y(?:es)?|1|on|true)$/i |
|
215
|
0 |
0 |
if $str =~ /^(no?|0|off|false)$/i |
|
222
|
0 |
0 |
if (@vals != 1) |
|
232
|
0 |
0 |
if ($str =~ /^(["'])/) { } |
|
238
|
0 |
0 |
unless $str =~ s/^(\S+)\s*// |
|
242
|
0 |
0 |
unless @vals |