| line |
true |
false |
branch |
|
28
|
2 |
5 |
if ($$self{'_self'} and $file =~ /\(eval / || $file =~ /base.pm/ or $_file eq $file or $0 eq $file) |
|
37
|
1 |
4 |
if (-e $file) |
|
38
|
0 |
1 |
unless -w $file |
|
40
|
0 |
1 |
unless rename $file, $file . $$self{'_backup_char'} |
|
46
|
2 |
3 |
unless ($settings and ref $settings eq 'HASH') |
|
51
|
0 |
3 |
unless lock_store($settings, $file) |
|
66
|
4 |
11 |
if ($$self{'_config_file'} and $$self{'_storable_file'}) { } |
|
67
|
2 |
2 |
if ($$self{'_config_file'} eq $$self{'_storable_file'}) { } |
|
|
1 |
1 |
elsif ((stat $$self{'_config_file'})[9] > (stat $$self{'_storable_file'})[9]) { } |
|
73
|
1 |
0 |
if $key |
|
81
|
2 |
9 |
if ($$self{'_storable_file'}) { } |
|
86
|
1 |
7 |
if ($$self{'_self'} and defined $$self{'_config_file'} and $$self{'_config_file'} =~ /\(eval / || $$self{'_config_file'} =~ /base.pm/ or $_file eq $$self{'_config_file'} or $0 eq $$self{'_config_file'}) |
|
102
|
3 |
9 |
unless $self->_check_file($file) |
|
106
|
1 |
8 |
if ($@) |
|
110
|
1 |
7 |
unless ($retrieved_hash_ref and ref $retrieved_hash_ref eq 'HASH') |
|
117
|
5 |
2 |
if $key |
|
129
|
5 |
1 |
if ($self->_check_file($configuration_file)) { } |
|
132
|
3 |
2 |
if ($$self{'_config_file'} =~ /\(eval / or $$self{'_config_file'} =~ /base.pm/) |