| line | % | coverage | branch |
|---|
| 276 | 50 | T | F | if (exists $params->{'logger'} and ref $params->{'logger'} eq "ARRAY") |
| 294 | 100 | T | F | if ($config_file) |
| 296 | 100 | T | F | unless ($config_dirs or -r $config_file) |
| 310 | 100 | T | F | if ($ancestor_config_file and $ancestor_config_file eq $config_file) |
| 315 | 50 | T | F | if ($ancestor_config_file and -r $ancestor_config_file and not $tracked_files{$ancestor_config_file}) |
| 323 | 50 | T | F | if (-f $ancestor_config_file) |
| 331 | 50 | T | F | if ($config_file and not $tracked_files{$config_file} and -r $config_file) |
| 338 | 50 | T | F | if (-f $config_file) |
| 346 | 100 | T | F | if (@config_files_to_load) |
| 357 | 100 | T | F | if (@config_files_to_load) { } |
| 100 | T | F | elsif (my $config = 'Config::Abstraction'->new('env_prefix', "${class}__")) { } |
| 374 | 50 | T | F | if ($config) { } |
| 0 | T | F | elsif ($@) { } |
| 405 | 50 | T | F | if ($ancestor_env_config) |
| 427 | 50 | T | F | if ($params->{'config_path'} and -f $params->{'config_path'}) |
| 432 | 50 | T | F | exists $params->{'croak_on_error'} ? : |
| 433 | 50 | T | F | exists $params->{'carp_on_warn'} ? : |
| 436 | 100 | T | F | if (my $logger = $params->{'logger'}) { } |
| 50 | T | F | elsif ($array) { } |
| 437 | 50 | T | F | if ($params->{'logger'} ne "NULL") |
| 438 | 100 | T | F | if (ref $logger eq 'HASH') { } |
| 50 | T | F | elsif (not &blessed($logger) && $logger->isa('Log::Abstraction')) { } |
| 439 | 100 | T | F | if ($logger->{'syslog'}) { } |
| 468 | 50 | T | F | if ($array and not $params->{'logger'}{'array'}) |
| 473 | 100 | T | F | if defined $config_file |
| 474 | 100 | T | F | if @config_files_to_load |
| 491 | 50 | T | F | if ($base_config_file =~ m[^(.*/)([^/]+?)(\.[^.]+)?$]) { } |
| 511 | 100 | T | F | if ($config_dirs and ref $config_dirs eq "ARRAY") |
| 527 | 100 | T | F | if (-r $pattern and -f $pattern) |
| 550 | 50 | T | F | if $seen->{$class}++ |
| 560 | 50 | T | F | if $parent eq "Exporter" |
| 561 | 50 | T | F | if $parent eq "DynaLoader" |
| 562 | 50 | T | F | if $parent eq "UNIVERSAL" |
| 576 | 50 | T | F | unless ref $base eq "HASH" |
| 577 | 50 | T | F | unless ref $overlay eq "HASH" |
| 582 | 100 | T | F | if (ref $overlay->{$key} eq 'HASH' and ref $result->{$key} eq 'HASH') { } |
| 610 | 100 | T | F | if ($params->{'_config_file'}) |
| 637 | 50 | T | F | if %_config_watchers |
| 640 | 100 | T | F | if (my $pid = fork) { } |
| 50 | T | F | elsif (defined $pid) { } |
| 663 | 100 | T | F | if (my $pid = $_config_watchers{'pid'}) |
| 688 | 100 | T | F | if (my $obj = $$obj_ref) |
| 693 | 50 | T | F | if ($@) |
| 700 | 50 | T | F | unless @$objects |
| 721 | 50 | T | F | if (-f $config_file) { } |
| 726 | 100 | T | F | if (not $stored_stat or $current_stat->mtime > $stored_stat->mtime) |
| 737 | 100 | T | F | if ($changes_detected) |
| 738 | 50 | T | F | if ($^O ne "MSWin32") |
| 741 | 50 | T | F | if (my $parent_pid = getppid) |
| 753 | 50 | T | F | unless &blessed($obj) |
| 761 | 100 | T | F | unless $config_file and -f $config_file |
| 769 | 50 | T | F | if ($config) |
| 780 | 50 | T | F | if $key =~ /^_/ |
| 782 | 100 | T | F | if ($key =~ /^logger/ and $new_params->{$key} ne 'NULL') { } |
| 791 | 50 | T | F | if ($obj->can("_on_config_reload")) |
| 796 | 50 | T | F | if ($obj->{'logger'} and $obj->{'logger'}->can("info")) |
| 807 | 50 | T | F | if (ref $logger_config eq 'HASH') { } |
| 811 | 0 | T | F | if ($logger_config->{'syslog'}) { } |
| 849 | 100 | T | F | if (not defined $_original_usr1_handler) |
| 853 | 50 | T | F | if $^O eq "MSWin32" |
| 858 | 100 | T | F | if ($_config_watchers{'callback'}) |
| 863 | 50 | T | F | if (ref $_original_usr1_handler eq 'CODE') { } |
| 0 | T | F | elsif ($_original_usr1_handler eq 'DEFAULT') { } |
| 0 | T | F | elsif ($_original_usr1_handler eq 'IGNORE') { } |
| 0 | T | F | elsif ($_original_usr1_handler ne 'DEFAULT' and $_original_usr1_handler ne 'IGNORE') { } |
| 891 | 100 | T | F | if (defined $_original_usr1_handler) |
| 892 | 50 | T | F | if $^O ne "MSWin32" |