| line | % | coverage | branch |
|---|
| 415 | 100 | T | F | if not defined $class or $class eq "" |
| 427 | 100 | T | F | if $key eq "logger" |
| 429 | 100 | T | F | if (ref $value eq "CODE" or &blessed($value)) |
| 434 | 100 | T | F | if (exists $params->{'logger'} and ref $params->{'logger'} eq "ARRAY") |
| 452 | 100 | T | F | if ($config_file) |
| 454 | 100 | T | F | unless ($config_dirs or -r $config_file) |
| 468 | 100 | T | F | if ($ancestor_config_file and $ancestor_config_file eq $config_file) |
| 473 | 50 | T | F | if ($ancestor_config_file and -r $ancestor_config_file and not $tracked_files{$ancestor_config_file}) |
| 481 | 50 | T | F | if (-f $ancestor_config_file) |
| 489 | 100 | T | F | if ($config_file and not $tracked_files{$config_file} and -r $config_file) |
| 496 | 50 | T | F | if (-f $config_file) |
| 501 | 100 | T | F | unless (scalar @config_files_to_load) |
| 505 | 100 | T | F | if (-r $candidate) |
| 517 | 100 | T | F | if (@config_files_to_load) { } |
| 100 | T | F | elsif (my $config = 'Config::Abstraction'->new('env_prefix', "${class}__")) { } |
| 520 | 50 | T | F | if (@config_files_to_load) |
| 546 | 50 | T | F | if ($config) { } |
| 0 | T | F | elsif ($@) { } |
| 576 | 100 | T | F | if ($ancestor_env_config) |
| 598 | 50 | T | F | if ($params->{'config_path'} and -f $params->{'config_path'}) |
| 603 | 100 | T | F | exists $params->{'croak_on_error'} ? : |
| 604 | 100 | T | F | exists $params->{'carp_on_warn'} ? : |
| 607 | 100 | T | F | if (my $logger = $params->{'logger'}) { } |
| 100 | T | F | elsif ($array) { } |
| 608 | 100 | T | F | if (not ref $logger and $logger eq 'NULL') { } |
| 100 | T | F | elsif (ref $logger eq 'HASH') { } |
| 100 | T | F | elsif (not &blessed($logger) && $logger->isa('Log::Abstraction')) { } |
| 612 | 100 | T | F | if (exists $logger->{'syslog'}) { } |
| 640 | 100 | T | F | if (exists $params->{'logger'} and ref $params->{'logger'}) |
| 641 | 50 | T | F | if ($array and not $params->{'logger'}{'array'}) |
| 645 | 50 | T | F | if ($array and not $params->{'logger'}{'array'}) |
| 652 | 100 | T | F | unless (exists $params->{'_config_file'}) |
| 653 | 100 | T | F | if defined $config_file |
| 655 | 100 | T | F | unless (exists $params->{'_config_files'}) |
| 656 | 100 | T | F | if @config_files_to_load |
| 660 | 100 | T | F | if %stashed_values |
| 691 | 100 | T | F | if (-r $pattern and -f $pattern) |
| 697 | 100 | T | F | if ($config_dirs and ref $config_dirs eq "ARRAY") |
| 709 | 100 | T | F | if (-r $pattern and -f $pattern) |
| 734 | 100 | T | F | if $seen->{$class}++ |
| 753 | 100 | T | F | if (not @isa and $class ne "UNIVERSAL") |
| 766 | 100 | T | F | unless ref $base eq "HASH" |
| 767 | 100 | T | F | unless ref $overlay eq "HASH" |
| 772 | 100 | T | F | if (ref $overlay->{$key} eq 'HASH' and ref $result->{$key} eq 'HASH') { } |
| 896 | 100 | T | F | if ($params->{'_config_file'}) |
| 1042 | 100 | T | F | if %_config_watchers |
| 1045 | 100 | T | F | if (my $pid = fork) { } |
| 50 | T | F | elsif (defined $pid) { } |
| 1135 | 100 | T | F | if (my $pid = $_config_watchers{'pid'}) |
| 1137 | 50 | T | F | if ($pid =~ /\A[0-9]+\z/ and $pid > 0) |
| 1146 | 100 | T | F | if ($kid == 0 and &Object::Configure::time() < $deadline) |
| 1152 | 50 | T | F | if ($kid == 0) |
| 1263 | 100 | T | F | if (my $obj = $$obj_ref) |
| 1268 | 50 | T | F | if ($@) |
| 1275 | 50 | T | F | unless @$objects |
| 1296 | 50 | T | F | if (-f $config_file) { } |
| 1301 | 100 | T | F | if (not $stored_stat or $current_stat->mtime > $stored_stat->mtime) |
| 1312 | 100 | T | F | if ($changes_detected) |
| 1313 | 50 | T | F | if ($^O ne "MSWin32") |
| 1316 | 50 | T | F | if (my $parent_pid = getppid) |
| 1328 | 50 | T | F | unless &blessed($obj) |
| 1337 | 100 | T | F | if ($obj->{'_config_files'} and ref $obj->{'_config_files'} eq 'ARRAY' and @{$obj->{'_config_files'};}) { } |
| 1344 | 100 | T | F | unless $config_file and -f $config_file |
| 1352 | 50 | T | F | if ($config) |
| 1363 | 50 | T | F | if $key =~ /^_/ |
| 1365 | 100 | T | F | if ($key =~ /^logger/ and $new_params->{$key} ne 'NULL') { } |
| 1374 | 100 | T | F | if ($obj->can("_on_config_reload")) |
| 1379 | 100 | T | F | if ($obj->{'logger'} and $obj->{'logger'}->can("info")) |
| 1392 | 100 | T | F | if (ref $logger_config eq 'HASH') { } |
| 1396 | 100 | T | F | if ($logger_config->{'syslog'}) { } |
| 1533 | 100 | T | F | unless defined $class and defined $obj |
| 1542 | 100 | T | F | unless (defined $_original_usr1_handler) |
| 1546 | 50 | T | F | if $^O eq "MSWin32" |
| 1551 | 100 | T | F | if ($_config_watchers{'callback'}) |
| 1556 | 100 | T | F | if (ref $_original_usr1_handler eq 'CODE') { } |
| 50 | T | F | elsif ($_original_usr1_handler eq 'DEFAULT') { } |
| 50 | T | F | elsif ($_original_usr1_handler eq 'IGNORE') { } |
| 0 | T | F | elsif ($_original_usr1_handler ne 'DEFAULT' and $_original_usr1_handler ne 'IGNORE') { } |
| 1646 | 100 | T | F | if (defined $_original_usr1_handler) |
| 1647 | 50 | T | F | if $^O ne "MSWin32" |