| line | % | coverage | branch |
|---|
| 429 | 100 | T | F | if not defined $class or $class eq "" |
| 441 | 100 | T | F | if $key eq "logger" |
| 443 | 100 | T | F | if (ref $value eq "CODE" or &blessed($value)) |
| 448 | 100 | T | F | if (exists $params->{'logger'} and ref $params->{'logger'} eq "ARRAY") |
| 466 | 100 | T | F | if ($config_file) |
| 469 | 100 | T | F | unless ($config_dirs or -r $config_file) |
| 481 | 100 | T | F | if $ancestor_config_file and $ancestor_config_file eq $config_file |
| 483 | 50 | T | F | if ($ancestor_config_file and -r $ancestor_config_file and not $tracked_files{$ancestor_config_file}) |
| 486 | 50 | T | F | if -f $ancestor_config_file |
| 491 | 100 | T | F | if ($config_file and not $tracked_files{$config_file} and -r $config_file) |
| 494 | 50 | T | F | if -f $config_file |
| 498 | 100 | T | F | unless (scalar @config_files_to_load) |
| 501 | 100 | T | F | if (-r $candidate) |
| 509 | 100 | T | F | if (@config_files_to_load) { } |
| 100 | T | F | elsif (my $config = 'Config::Abstraction'->new('env_prefix', "${class}__")) { } |
| 535 | 50 | T | F | if ($config) { } |
| 0 | T | F | elsif ($@) { } |
| 560 | 100 | T | F | if ($ancestor_env_config) |
| 580 | 50 | T | F | if ($params->{'config_path'} and -f $params->{'config_path'}) |
| 585 | 100 | T | F | exists $params->{'croak_on_error'} ? : |
| 586 | 100 | T | F | exists $params->{'carp_on_warn'} ? : |
| 592 | 100 | T | F | defined $array_logger ? : |
| 595 | 100 | T | F | unless (exists $params->{'_config_file'}) |
| 596 | 100 | T | F | if defined $config_file |
| 598 | 100 | T | F | unless (exists $params->{'_config_files'}) |
| 599 | 100 | T | F | if @config_files_to_load |
| 604 | 100 | T | F | if %stashed_values |
| 698 | 100 | T | F | if $params->{'_config_file'} |
| 810 | 100 | T | F | if %_config_watchers |
| 812 | 100 | T | F | if (my $pid = fork) { } |
| 50 | T | F | elsif (defined $pid) { } |
| 885 | 100 | T | F | if (my $pid = $_config_watchers{'pid'}) |
| 886 | 50 | T | F | if ($pid =~ /\A[0-9]+\z/ and $pid > 0) |
| 895 | 100 | T | F | if ($kid == 0 and &Object::Configure::time() < $deadline) |
| 900 | 50 | T | F | if ($kid == 0) |
| 986 | 100 | T | F | if (my $obj = $$obj_ref) |
| 993 | 50 | T | F | if ($@) |
| 999 | 50 | T | F | unless @$objects |
| 1097 | 100 | T | F | unless defined $class and defined $obj |
| 1108 | 100 | T | F | unless (defined $_original_usr1_handler) |
| 1111 | 50 | T | F | if $^O eq $OS_WINDOWS |
| 1115 | 100 | T | F | if $_config_watchers{'callback'} |
| 1117 | 100 | T | F | if (ref $_original_usr1_handler eq 'CODE') { } |
| 50 | T | F | elsif ($_original_usr1_handler eq $SIG_DEFAULT or $_original_usr1_handler eq $SIG_IGNORE) { } |
| 1188 | 100 | T | F | if (defined $_original_usr1_handler) |
| 1189 | 50 | T | F | unless $^O eq $OS_WINDOWS |
| 1312 | 100 | T | F | unless defined $spec |
| 1315 | 100 | T | F | if not ref $spec and $spec eq $LOGGER_NULL |
| 1318 | 100 | T | F | if &blessed($spec) and $spec->isa("Log::Abstraction") |
| 1321 | 100 | T | F | if (ref $spec eq "ARRAY") |
| 1325 | 100 | T | F | if (ref $spec eq "HASH") |
| 1348 | 50 | T | F | unless grep {$_ eq "UNIVERSAL";} @mro |
| 1379 | 100 | T | F | if -r $pattern and -f $pattern |
| 1382 | 100 | T | F | if ($config_dirs and ref $config_dirs eq "ARRAY") |
| 1392 | 100 | T | F | if -r $pattern and -f $pattern |
| 1418 | 50 | T | F | if (-f $config_file) { } |
| 1422 | 100 | T | F | if (not $stored_stat or $current_stat->mtime > $stored_stat->mtime) |
| 1432 | 100 | T | F | if ($changes_detected and $^O ne $OS_WINDOWS) |
| 1433 | 50 | T | F | if (my $parent_pid = getppid) |
| 1449 | 50 | T | F | unless &blessed($obj) |
| 1457 | 100 | T | F | if ($obj->{'_config_files'} and ref $obj->{'_config_files'} eq 'ARRAY' and @{$obj->{'_config_files'};}) { } |
| 1463 | 100 | T | F | unless $config_file and -f $config_file |
| 1470 | 50 | T | F | if ($config) |
| 1479 | 50 | T | F | if $key =~ /^_/ |
| 1481 | 100 | T | F | if ($key eq 'logger') { } |
| 1485 | 50 | T | F | if (ref $val or defined $val and $val ne $LOGGER_NULL) { } |
| 1495 | 100 | T | F | if $obj->can("_on_config_reload") |
| 1498 | 100 | T | F | if $obj->{'logger'} and $obj->{'logger'}->can("info") |
| 1527 | 100 | T | F | unless ref $base eq "HASH" |
| 1528 | 100 | T | F | unless ref $overlay eq "HASH" |
| 1533 | 100 | T | F | if (ref $overlay->{$key} eq 'HASH' and ref $result->{$key} eq 'HASH') { } |