| line |
true |
false |
branch |
|
29
|
1 |
23 |
if (my $v = delete $param{$k}) |
|
40
|
1 |
7 |
defined $ENV{'AWS_CLIWRAPPER_TIMEOUT'} ? : |
|
55
|
2 |
2 |
unless (defined $AWSCLI_VERSION) |
|
60
|
0 |
2 |
if ($vs =~ m[/([0-9.]+)\s]) { } |
|
80
|
1 |
0 |
if (not $type) { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'AWS::CLIWrapper::Boolean') { } |
|
81
|
0 |
1 |
if ($k eq '--output-file') { } |
|
88
|
0 |
0 |
ref $_ ? : |
|
92
|
0 |
0 |
if ($$v == 1) { } |
|
110
|
0 |
0 |
if ($type and $type eq "HASH") |
|
112
|
0 |
0 |
if ($hk =~ /^(?:key|name|values|value)$/) |
|
144
|
0 |
0 |
if ($service eq "ec2" and $operation eq "wait") |
|
147
|
0 |
0 |
if (ref $_[0] eq "ARRAY") |
|
153
|
0 |
0 |
if ($service eq 'ec2' and $operation eq 'run-instances') { } |
|
|
0 |
0 |
elsif ($service eq 's3' and $self->awscli_version >= 0.15.0) { } |
|
|
0 |
0 |
elsif ($service eq 's3api' and $self->awscli_version < 0.15.0) { } |
|
157
|
0 |
0 |
if ($self->awscli_version >= 0.14.0) { } |
|
160
|
0 |
0 |
if ($hk eq 'min_count') { } |
|
|
0 |
0 |
elsif ($hk eq 'max_count') { } |
|
167
|
0 |
0 |
unless $param->{'count'} |
|
170
|
0 |
0 |
if ($hk eq "count") |
|
176
|
0 |
0 |
unless $param->{'min_count'} |
|
177
|
0 |
0 |
unless $param->{'max_count'} |
|
180
|
0 |
0 |
unless ($operation =~ /^(?:cp|ls|mb|mv|rb|rm|sync|website)$/) |
|
189
|
0 |
0 |
if ($service eq "s3" and $k =~ /^(?:include|exclude)$/) |
|
196
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
199
|
0 |
0 |
if (exists $opt{'nofork'} and $opt{'nofork'}) { } |
|
206
|
0 |
0 |
defined $err ? : |
|
207
|
0 |
0 |
if ($ok) { } |
|
212
|
0 |
0 |
if defined $err and $err =~ /^IPC::Cmd::TimeOut:/ |
|
221
|
0 |
0 |
if ($ret->{'exit_code'} == 0 and $ret->{'timeout'} == 0) { } |
|
225
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
237
|
0 |
0 |
if ($@) |
|
238
|
0 |
0 |
if ($ENV{'AWSCLI_DEBUG'}) |
|
248
|
0 |
0 |
if ($stdout_str and $stdout_str =~ /^{/) { } |
|
252
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
254
|
0 |
0 |
if (exists $ret->{'Errors'} and ref $ret->{'Errors'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (exists $ret->{'Response'}{'Errors'}{'Error'}) { } |
|
266
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
270
|
0 |
0 |
if $self->{'croak_on_error'} |