| line | % | coverage | branch |
|---|
| 552 | 100 | T | F | if not defined $class or $class eq "" |
| 561 | 100 | T | F | unless $class =~ /\A[A-Za-z_]\w*(?:::[A-Za-z_]\w*)*\z/ |
| 573 | 100 | T | F | if $key eq "logger" |
| 575 | 100 | T | F | if (ref $value eq "CODE" or &blessed($value)) |
| 580 | 100 | T | F | if (exists $params->{'logger'} and ref $params->{'logger'} eq "ARRAY") |
| 596 | 100 | T | F | if (defined $config_file and $config_file =~ /$RE_PATH_TRAVERSAL/) |
| 608 | 100 | T | F | if ($config_file) |
| 611 | 100 | T | F | unless ($config_dirs or -r $config_file) |
| 623 | 100 | T | F | if $ancestor_config_file and $ancestor_config_file eq $config_file |
| 625 | 100 | T | F | if ($ancestor_config_file and -r $ancestor_config_file and not $tracked_files{$ancestor_config_file}) |
| 628 | 50 | T | F | if -f $ancestor_config_file |
| 634 | 100 | T | F | if (not $tracked_files{$config_file} and -r $config_file) |
| 637 | 100 | T | F | if -f $config_file |
| 641 | 100 | T | F | unless (scalar @config_files_to_load) |
| 644 | 100 | T | F | if (-r $candidate) |
| 652 | 100 | T | F | if (@config_files_to_load) { } |
| 100 | T | F | elsif (my $config = 'Config::Abstraction'->new('env_prefix', "${class}__")) { } |
| 678 | 100 | T | F | if ($config) { } |
| 100 | T | F | elsif ($@) { } |
| 703 | 100 | T | F | if ($ancestor_env_config) |
| 730 | 100 | T | F | if ($params->{'config_path'}) |
| 733 | 50 | T | F | if $params->{'config_path'} =~ /$RE_PATH_TRAVERSAL/ |
| 735 | 50 | T | F | if -f $params->{'config_path'} |
| 739 | 100 | T | F | exists $params->{'croak_on_error'} ? : |
| 740 | 100 | T | F | exists $params->{'carp_on_warn'} ? : |
| 746 | 100 | T | F | defined $array_logger ? : |
| 749 | 100 | T | F | unless (exists $params->{'_config_file'}) |
| 750 | 100 | T | F | if defined $config_file |
| 752 | 100 | T | F | unless (exists $params->{'_config_files'}) |
| 753 | 100 | T | F | if @config_files_to_load |
| 758 | 100 | T | F | if %stashed_values |
| 865 | 100 | T | F | if $params->{'_config_file'} |
| 982 | 100 | T | F | unless $interval > 0 |
| 985 | 100 | T | F | if %_config_watchers |
| 987 | 100 | T | F | if (my $pid = fork) { } |
| 50 | T | F | elsif (defined $pid) { } |
| 1046 | 100 | T | F | if (my $pid = $_config_watchers{'pid'}) |
| 1054 | 100 | T | F | if ($pid =~ /\A[0-9]+\z/ and $pid > 1 and $pid != $$) |
| 1063 | 100 | T | F | if ($kid == 0 and &Object::Configure::time() < $deadline) |
| 1068 | 50 | T | F | if ($kid == 0) |
| 1133 | 50 | T | F | if (my $obj = $$obj_ref) |
| 1140 | 100 | T | F | if ($@) |
| 1146 | 100 | T | F | unless @$objects |
| 1248 | 100 | T | F | unless defined $class and defined $obj |
| 1255 | 100 | T | F | unless &blessed($obj) |
| 1266 | 100 | T | F | unless (defined $_original_usr1_handler) |
| 1269 | 50 | T | F | if $^O eq $OS_WINDOWS |
| 1273 | 100 | T | F | if $_config_watchers{'callback'} |
| 1275 | 100 | T | F | if (ref $_original_usr1_handler eq 'CODE') { } |
| 100 | T | F | elsif ($_original_usr1_handler eq $SIG_DEFAULT or $_original_usr1_handler eq $SIG_IGNORE) { } |
| 1330 | 100 | T | F | if (defined $_original_usr1_handler) |
| 1331 | 50 | T | F | unless $^O eq $OS_WINDOWS |
| 1428 | 100 | T | F | unless defined $spec |
| 1431 | 100 | T | F | if not ref $spec and $spec eq $LOGGER_NULL |
| 1434 | 100 | T | F | if &blessed($spec) and $spec->isa("Log::Abstraction") |
| 1437 | 100 | T | F | if (ref $spec eq "ARRAY") |
| 1441 | 100 | T | F | if (ref $spec eq "HASH") |
| 1464 | 100 | T | F | if $_chain_cache{$class} |
| 1472 | 100 | T | F | unless &any(sub {
$_ eq "UNIVERSAL";
}
, @mro) |
| 1495 | 100 | T | F | $config_dirs ? : |
| 1497 | 100 | T | F | if exists $_find_cache{$cache_key} |
| 1520 | 100 | T | F | if (-r $pattern and -f $pattern) |
| 1526 | 100 | T | F | if ($config_dirs and ref $config_dirs eq "ARRAY") |
| 1538 | 100 | T | F | if (-r $pattern and -f $pattern) |
| 1566 | 50 | T | F | unless $interval > 0 |
| 1577 | 50 | T | F | if (-f $config_file) { } |
| 1581 | 100 | T | F | if (not $stored_stat or $current_stat->mtime > $stored_stat->mtime) |
| 1591 | 100 | T | F | if ($changes_detected and $^O ne $OS_WINDOWS) |
| 1592 | 50 | T | F | if (my $parent_pid = getppid) |
| 1608 | 100 | T | F | unless &blessed($obj) |
| 1616 | 100 | T | F | if ($obj->{'_config_files'} and ref $obj->{'_config_files'} eq 'ARRAY' and @{$obj->{'_config_files'};}) { } |
| 1627 | 100 | T | F | if ($config_file and $config_file =~ /$RE_PATH_TRAVERSAL/) |
| 1633 | 100 | T | F | unless $config_file and -f $config_file |
| 1640 | 50 | T | F | if ($config) |
| 1649 | 100 | T | F | if $key =~ /^_/ |
| 1651 | 100 | T | F | if ($key eq 'logger') { } |
| 1658 | 100 | T | F | if (not defined $val or not ref $val and $val eq $LOGGER_NULL) { } |
| 1668 | 100 | T | F | if $obj->can("_on_config_reload") |
| 1671 | 100 | T | F | if $obj->{'logger'} and $obj->{'logger'}->can("info") |
| 1700 | 100 | T | F | unless ref $base eq "HASH" |
| 1701 | 100 | T | F | unless ref $overlay eq "HASH" |
| 1706 | 100 | T | F | if (ref $overlay->{$key} eq 'HASH' and ref $result->{$key} eq 'HASH') { } |