Branch Coverage

File:blib/lib/Object/Configure.pm
Coverage:65.9%

line%coveragebranch
31650TFunless defined $class
31850TFif (exists $params->{'logger'} and ref $params->{'logger'} eq "ARRAY")
336100TFif ($config_file)
338100TFunless ($config_dirs or -r $config_file)
352100TFif ($ancestor_config_file and $ancestor_config_file eq $config_file)
35750TFif ($ancestor_config_file and -r $ancestor_config_file and not $tracked_files{$ancestor_config_file})
36550TFif (-f $ancestor_config_file)
373100TFif ($config_file and not $tracked_files{$config_file} and -r $config_file)
38050TFif (-f $config_file)
38550TFunless (scalar @config_files_to_load)
3890TFif (-r $candidate)
400100TFif (@config_files_to_load) { }
100TFelsif (my $config = 'Config::Abstraction'->new('env_prefix', "${class}__")) { }
40350TFif (@config_files_to_load)
42950TFif ($config) { }
0TFelsif ($@) { }
459100TFif ($ancestor_env_config)
48150TFif ($params->{'config_path'} and -f $params->{'config_path'})
48650TFexists $params->{'croak_on_error'} ? :
48750TFexists $params->{'carp_on_warn'} ? :
490100TFif (my $logger = $params->{'logger'}) { }
50TFelsif ($array) { }
49150TFif ($params->{'logger'} ne "NULL")
492100TFif (ref $logger eq 'HASH') { }
50TFelsif (not &blessed($logger) && $logger->isa('Log::Abstraction')) { }
493100TFif ($logger->{'syslog'}) { }
52250TFif ($array and not $params->{'logger'}{'array'})
527100TFif defined $config_file
528100TFif @config_files_to_load
545100TFif ($base_config_file =~ m[^(.*/)([^/]+?)(\.[^.]+)?$]) { }
565100TFif ($config_dirs and ref $config_dirs eq "ARRAY")
581100TFif (-r $pattern and -f $pattern)
60450TFif $seen->{$class}++
623100TFif (not @isa and $class ne "UNIVERSAL")
63650TFunless ref $base eq "HASH"
63750TFunless ref $overlay eq "HASH"
642100TFif (ref $overlay->{$key} eq 'HASH' and ref $result->{$key} eq 'HASH') { }
670100TFif ($params->{'_config_file'})
69750TFif %_config_watchers
700100TFif (my $pid = fork) { }
50TFelsif (defined $pid) { }
723100TFif (my $pid = $_config_watchers{'pid'})
748100TFif (my $obj = $$obj_ref)
75350TFif ($@)
76050TFunless @$objects
78150TFif (-f $config_file) { }
786100TFif (not $stored_stat or $current_stat->mtime > $stored_stat->mtime)
797100TFif ($changes_detected)
79850TFif ($^O ne "MSWin32")
80150TFif (my $parent_pid = getppid)
81350TFunless &blessed($obj)
821100TFunless $config_file and -f $config_file
82950TFif ($config)
84050TFif $key =~ /^_/
842100TFif ($key =~ /^logger/ and $new_params->{$key} ne 'NULL') { }
85150TFif ($obj->can("_on_config_reload"))
85650TFif ($obj->{'logger'} and $obj->{'logger'}->can("info"))
86750TFif (ref $logger_config eq 'HASH') { }
8710TFif ($logger_config->{'syslog'}) { }
91650TFunless defined $class and defined $obj
925100TFif (not defined $_original_usr1_handler)
92950TFif $^O eq "MSWin32"
934100TFif ($_config_watchers{'callback'})
93950TFif (ref $_original_usr1_handler eq 'CODE') { }
0TFelsif ($_original_usr1_handler eq 'DEFAULT') { }
0TFelsif ($_original_usr1_handler eq 'IGNORE') { }
0TFelsif ($_original_usr1_handler ne 'DEFAULT' and $_original_usr1_handler ne 'IGNORE') { }
967100TFif (defined $_original_usr1_handler)
96850TFif $^O ne "MSWin32"