| 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 ? : |