| line |
true |
false |
branch |
|
197
|
1 |
0 |
if (ref $c ne "HASH") |
|
225
|
0 |
2 |
$sec eq 'argv' ? : |
|
227
|
0 |
2 |
if (ref $self->{$sec}{$key} eq 'ARRAY') { } |
|
245
|
0 |
0 |
if (ref $self->{$sec}{$key} eq 'ARRAY') { } |
|
273
|
0 |
0 |
if (ref $self->{$sec} eq 'HASH') { } |
|
291
|
1 |
0 |
if (defined $sec and defined $key and defined $val) |
|
303
|
0 |
1 |
if ref $_[0] eq "Config::Simple::Conf" |
|
308
|
0 |
1 |
if $tfn |
|
312
|
0 |
1 |
if ($tfn) |
|
314
|
0 |
0 |
$fn ? : |
|
|
0 |
0 |
unless open my $fh, $tfn |
|
319
|
0 |
0 |
if (/^\s*?\[([^\]]+)\]\s*?$/) { } |
|
|
0 |
0 |
elsif (not $hd) { } |
|
330
|
0 |
0 |
if not $_ or /^#/ |
|
333
|
0 |
0 |
if ($hd eq "argv") |
|
334
|
0 |
0 |
$fn ? : |
|
347
|
0 |
0 |
if ($k eq 'die') { } |
|
|
0 |
0 |
elsif (not $k) { } |
|
348
|
0 |
0 |
$fn ? : |
|
350
|
0 |
0 |
unless $k |
|
353
|
0 |
0 |
if (exists $conf->{$hd}{$k} and $conf->{$hd}{$k} ne "\cX") { } |
|
354
|
0 |
0 |
if (ref $conf->{$hd}{$k} eq 'ARRAY') { } |
|
371
|
0 |
0 |
if (ref($conf) =~ /^(HASH|Config::Simple::Conf)$/) |
|
375
|
0 |
0 |
if ($conf->{$sec}{'include'}) |
|
377
|
0 |
0 |
if (ref $conf->{$sec}{'include'} eq 'ARRAY') { } |
|
387
|
0 |
0 |
if (not $Config::Simple::Conf::INC{$file}) { } |
|
392
|
0 |
0 |
$fn ? : |
|
410
|
0 |
0 |
if (/^--$/) { } |
|
|
0 |
0 |
elsif (/^--?([^=]+)=(.+)$/) { } |
|
|
0 |
0 |
elsif (/^--?([A-Za-z0-9_.-]+)$/) { } |
|
419
|
0 |
0 |
if (exists $conf->{$k} and $conf->{$k} ne "\cX") { } |
|
420
|
0 |
0 |
if (ref $conf->{$k} eq 'ARRAY') { } |
|
435
|
0 |
0 |
unless (exists $conf->{$k}) |
|
439
|
0 |
0 |
if ($last_key) { } |
|
440
|
0 |
0 |
if (exists $conf->{$last_key} and $conf->{$last_key} ne "\cX") { } |
|
441
|
0 |
0 |
if (ref $conf->{$last_key} eq 'ARRAY') { } |
|
459
|
0 |
1 |
if (ref($conf) =~ /^(HASH|Config::Simple::Conf)$/) { } |
|
461
|
0 |
0 |
if ($conf->{$key} eq "\30") |
|
485
|
0 |
0 |
if (ref $conf->{$sec}{$key} eq 'ARRAY') { } |
|
487
|
0 |
0 |
if ($conf->{$sec}{$key}[$i] =~ /\[([^:]+)\:([^\]]+)]/) { } |
|
|
0 |
0 |
elsif ($conf->{$sec}{$key}[$i] =~ /\[([^\]]+)]/) { } |
|
490
|
0 |
0 |
if ($sec ne "argv") |
|
495
|
0 |
0 |
if (ref $conf->{$aa}{$ab} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($conf->{$aa}{$ab}) { } |
|
508
|
0 |
0 |
if $sec ne "argv" |
|
510
|
0 |
0 |
if (ref $conf->{'global'}{$aa} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($conf->{'global'}{$aa}) { } |
|
522
|
0 |
0 |
if (not ref $conf->{$sec}{$key} and $conf->{$sec}{$key} =~ /\[([^:]+):([^\]]+)\]/) { } |
|
|
0 |
0 |
elsif (not ref $conf->{$sec}{$key} and $conf->{$sec}{$key} =~ /\[([^\]]+)\]/) { } |
|
525
|
0 |
0 |
if ($sec ne "argv") |
|
530
|
0 |
0 |
if (ref $conf->{$aa}{$ab} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($conf->{$aa}{$ab}) { } |
|
543
|
0 |
0 |
if $sec ne "argv" |
|
545
|
0 |
0 |
if (ref $conf->{'global'}{$aa} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($conf->{'global'}{$aa}) { } |
|
559
|
1 |
0 |
unless $try |
|
568
|
0 |
0 |
if ($ENV{'QUERY_STRING'} or $ENV{'REQUEST_METHOD'}) { } |