| line |
true |
false |
branch |
|
29
|
1 |
1 |
unless (-e $config_file) |
|
31
|
0 |
1 |
unless open my $fh, '>', $config_file |
|
39
|
0 |
2 |
unless open my $fh, '<', $config_file |
|
43
|
0 |
2 |
unless (eval {
do {
local $/;
die "Unable to open $config_file for reading: $!" unless open my $fh, '<', $config_file;
my $json_text = <$fh>;
$config = decode_json($json_text || '{}');
1
}
}) |
|
59
|
2 |
4 |
unless (-d $dir) |
|
81
|
2 |
2 |
if ($key eq 'endpoint') |
|
84
|
1 |
1 |
if (not defined $value) { } |
|
92
|
0 |
2 |
unless (eval {
do {
$self->write_config;
1
}
}) |
|
105
|
1 |
2 |
if $key eq 'endpoint' |
|
106
|
2 |
0 |
exists $self->config->{$key} ? : |
|
117
|
0 |
2 |
unless open my $fh, '>', $config_file |
|
131
|
0 |
0 |
unless ($self->is_set($k)) |