| line |
true |
false |
branch |
|
555
|
0 |
1 |
unless $directives |
|
564
|
0 |
1 |
unless $$self{'opts'}{'conffile'} |
|
565
|
0 |
1 |
unless -r $$self{'opts'}{'conffile'} |
|
568
|
0 |
1 |
unless open CONF, '< ' . $$self{'opts'}{'conffile'} |
|
575
|
0 |
1 |
if ($_ =~ /^\s*#.*$/ or $_ =~ /^\s*$/) { } |
|
|
0 |
1 |
elsif ($_ =~ /^\s*<([a-zA-Z0-9]+)\s+(.+)>\s*$/) { } |
|
|
0 |
1 |
elsif ($_ =~ m[^\s*\s*$]) { } |
|
|
1 |
0 |
elsif ($_ =~ /^\s*(.+?)[\s\t\=]+(.*)\s*$/) { } |
|
582
|
0 |
0 |
if $directive_name |
|
586
|
0 |
0 |
if ($_ eq $1) |
|
592
|
0 |
0 |
unless $directive_name |
|
598
|
0 |
0 |
if ($1 ne $directive_name) { } |
|
612
|
0 |
1 |
if ($directive_name) { } |
|
645
|
1 |
0 |
if ($keyword eq $key) |
|
648
|
0 |
1 |
if ($$self{'Directives'}{$directive_name}{$key}{'type'} eq 'list') { } |
|
654
|
0 |
0 |
unless ($_ =~ /$$self{'Directives'}{$directive_name}{$key}{'match'}/) |
|
663
|
0 |
1 |
unless ($value =~ /$$self{'Directives'}{$directive_name}{$key}{'match'}/) |
|
670
|
1 |
0 |
if ($directive_name eq 'global' or not $directive_value) { } |
|
673
|
0 |
1 |
if ($$self{'Directives'}{$directive_name}{$key}{'type'} eq 'list') { } |
|
685
|
0 |
0 |
if ($$self{'Directives'}{$directive_name}{$key}{'type'} eq 'list') { } |
|
699
|
0 |
1 |
if (not $foundflag) |
|
719
|
0 |
1 |
if ($$self{'Directives'}{$directive}{$keyword}{'required'} eq 'true' and not defined $$self{'config'}{$directive}{$keyword}) |
|
722
|
0 |
0 |
if ($directive eq 'global') |
|
730
|
0 |
0 |
if (ref $$self{'config'}{$directive}{$subdirective} eq 'HASH') { } |
|
733
|
0 |
0 |
unless (defined $$self{'config'}{$directive}{$subdirective}{$keyword}) |
|
756
|
0 |
1 |
unless $filename |
|
758
|
0 |
1 |
unless open CONF, '> ' . $filename |
|
775
|
0 |
1 |
if (@directives) |
|
806
|
0 |
1 |
if (ref $$base{$key} eq 'ARRAY') { } |
|
866
|
1 |
0 |
if $_ eq 'global' |
|
877
|
0 |
0 |
unless $name |
|
878
|
0 |
0 |
if $name eq 'global' |
|
919
|
0 |
0 |
if (exists $$self{'opts'}{'dh'}) { } |