line |
true |
false |
branch |
25
|
0 |
1 |
unless (-e "$filename") |
28
|
0 |
1 |
unless open my $fh, "<", $filename |
32
|
1 |
1 |
if $line =~ /^[#[]/u |
41
|
0 |
0 |
unless open my $fh, ">", $filename |
58
|
1 |
1 |
if ($response->{'success'}) { } |
|
0 |
1 |
elsif ($response->{'status'} == 599) { } |
69
|
0 |
0 |
if ($response->is_success) { } |
75
|
0 |
0 |
if ($@) |
80
|
0 |
0 |
if ($line =~ /^HTTP/u and $line =~ /200/u) |
94
|
0 |
0 |
if ($? == -1) { } |
|
0 |
0 |
elsif ($? & 127) { } |
|
0 |
0 |
elsif ($? >> 8) { } |
97
|
0 |
0 |
$? & 128 ? : |
105
|
0 |
0 |
if ($line =~ /^content-type/iu) |
138
|
0 |
0 |
if ($@) |
144
|
0 |
0 |
if ($@) |
154
|
0 |
0 |
unless (grep {$_ eq $mode;} @MODES) |
159
|
0 |
0 |
if (not $api_key or length $api_key == 0) |
171
|
0 |
0 |
if ($ENV{'DEBUG'}) |
175
|
0 |
0 |
$ENV{'DEBUG'} ? : |
176
|
0 |
0 |
if ($? == -1) { } |
|
0 |
0 |
elsif ($? & 127) { } |
|
0 |
0 |
elsif ($? >> 8) { } |
179
|
0 |
0 |
$? & 128 ? : |
195
|
0 |
0 |
if ($TESTMODE) |
199
|
0 |
0 |
if ($? == -1) { } |
|
0 |
0 |
elsif ($? & 127) { } |
|
0 |
0 |
elsif ($? >> 8) { } |
|
0 |
0 |
elsif ($? == 0) { } |
202
|
0 |
0 |
$? & 128 ? : |