| line |
true |
false |
branch |
|
15
|
1 |
0 |
if defined $test |
|
23
|
0 |
1 |
if (length $json_text == 0) |
|
32
|
0 |
1 |
if ($@) |
|
38
|
1 |
0 |
if defined $json_data |
|
40
|
0 |
1 |
unless (defined $json_data) |
|
61
|
0 |
4 |
unless (-e "$filename") |
|
64
|
0 |
4 |
unless open my $fh, "<", $filename |
|
80
|
0 |
36 |
if $line =~ /^#/u |
|
81
|
12 |
24 |
if ($line =~ /^\[(.*)\]$/u) { } |
|
|
14 |
10 |
elsif ($line =~ /=/u) { } |
|
97
|
0 |
9 |
unless defined $user |
|
98
|
1 |
8 |
unless $user =~ /^[0-9]+$/u |
|
100
|
0 |
8 |
unless (defined $config->{'users'}) |
|
104
|
4 |
4 |
if (defined $config->{'users'}{'everyone'}) |
|
107
|
1 |
7 |
if (defined $config->{'users'}{$user} and $config->{'users'}{$user} == 1) |
|
111
|
2 |
6 |
if (defined $config->{'users'}{$user} and $config->{'users'}{$user} == 0) |
|
118
|
0 |
1 |
unless open my $fh, ">", $filename |
|
142
|
0 |
0 |
if ($response->{'success'}) { } |
|
|
0 |
0 |
elsif ($response->{'status'} == 599) { } |
|
153
|
0 |
0 |
if ($response->is_success) { } |
|
159
|
0 |
0 |
if ($@) |
|
164
|
0 |
0 |
if ($line =~ /^HTTP/u and $line =~ /200/u) |