| line |
true |
false |
branch |
|
85
|
1 |
2 |
unless ($FL) |
|
86
|
0 |
1 |
unless open $FL, ">$dest_file" |
|
93
|
1 |
0 |
if ($FL) |
|
97
|
0 |
1 |
if ($response_code != 200) |
|
121
|
0 |
1 |
if ($response_code =~ /^[^2]/) |
|
132
|
0 |
1 |
unless (-f $source_file) |
|
138
|
0 |
1 |
unless open my $FH, "<$source_file" |
|
156
|
1 |
3 |
if ($response_code == 200 or $response_code == 201) { } |
|
|
0 |
3 |
elsif ($response_code != 308) { } |
|
157
|
0 |
1 |
if ($end_byte + 1 != $file_size) |
|
193
|
1 |
2 |
unless ($valid_permissions{$permission_type}) |
|
198
|
0 |
2 |
unless ($valid_roles{$role}) |
|
217
|
0 |
2 |
if ($response_code != 200) |
|
238
|
0 |
2 |
if ($response_code != 200) |
|
255
|
0 |
1 |
if (not exists $permission->{'type'} or $permission->{'type'} ne 'anyone') |
|
270
|
0 |
1 |
if $parents |
|
286
|
0 |
1 |
if ($response_code != 200) |
|
291
|
0 |
1 |
unless my $location = $response->header('Location') |
|
299
|
0 |
0 |
if ($error_message) |
|
334
|
0 |
3 |
if ($response_code != 200) |
|
340
|
0 |
3 |
if (my $next_token = $json_res->{'next_token'}) |
|
359
|
9 |
1 |
unless ($@) |
|
360
|
9 |
0 |
if (exists $token_info->{'expires_in'} and $token_info->{'expires_in'} > 5) |