| line |
true |
false |
branch |
|
44
|
0 |
1 |
if $config |
|
64
|
0 |
1 |
unless scalar @lines |
|
66
|
1 |
0 |
unless $$self{'CONFIG'} |
|
77
|
0 |
7 |
if ($in_long_comment) |
|
82
|
0 |
0 |
if ($line =~ m[^[^\*]*\*/]) { } |
|
104
|
0 |
7 |
if ($line =~ m[/\*]) |
|
107
|
0 |
0 |
if ($line =~ m[/\*[^\*]*\*/]) { } |
|
124
|
0 |
7 |
if ($line =~ /^(.*)(include)\s+(\S+.*)\;(.*)$/) |
|
142
|
0 |
0 |
if ($incfile =~ /^\"(.+)\"$/) { } |
|
152
|
0 |
0 |
if (not $incfile =~ m[^\s*/] and defined $tdir) |
|
182
|
0 |
1 |
unless defined $result |
|
196
|
1 |
0 |
if (eval "require $tmp") { } |
|
205
|
0 |
1 |
if ($@) |
|
227
|
0 |
0 |
unless $tref eq 'DNS::Config::Statement::Options' |
|
240
|
0 |
0 |
unless $file |
|
241
|
0 |
0 |
unless $$self{'CONFIG'} |
|
243
|
0 |
0 |
if ($file) { } |
|
244
|
0 |
0 |
if (open FILE, ">$file") { } |
|
284
|
2 |
89 |
if (grep {$char eq $_;} keys %matching) { } |
|
|
2 |
87 |
elsif (grep {$char eq $_;} values %matching) { } |
|
293
|
0 |
2 |
if not defined $expected or $char ne $expected |
|
295
|
0 |
2 |
unless ref $tree |
|
300
|
5 |
82 |
if (not $noe or ref $$tree[$noe - 1] eq 'ARRAY') { } |
|
309
|
0 |
1 |
if scalar @stack |
|
320
|
5 |
2 |
if (not ref $line) { } |
|
325
|
2 |
3 |
unless $parts[0] |
|
327
|
1 |
4 |
if ($parts[$#parts - 1] eq '') { } |
|
336
|
5 |
2 |
if ($temp) |
|
349
|
2 |
0 |
unless ($full) |