| line |
true |
false |
branch |
|
27
|
0 |
21 |
if (my $v = delete $param{$k}) |
|
37
|
1 |
6 |
defined $ENV{'AWS_CLIWRAPPER_TIMEOUT'} ? : |
|
50
|
2 |
2 |
unless (defined $AWSCLI_VERSION) |
|
55
|
0 |
2 |
if ($vs =~ m[/([0-9.]+)\s]) { } |
|
75
|
0 |
0 |
if (not $type) { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'AWS::CLIWrapper::Boolean') { } |
|
76
|
0 |
0 |
if ($k eq '--output-file') { } |
|
83
|
0 |
0 |
ref $_ ? : |
|
87
|
0 |
0 |
if ($$v == 1) { } |
|
105
|
0 |
0 |
if ($type and $type eq "HASH") |
|
107
|
0 |
0 |
if ($hk =~ /^(?:key|name|values|value)$/) |
|
139
|
0 |
0 |
if ($service eq "ec2" and $operation eq "wait") |
|
142
|
0 |
0 |
if (ref $_[0] eq "ARRAY") |
|
148
|
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) { } |
|
152
|
0 |
0 |
if ($self->awscli_version >= 0.14.0) { } |
|
155
|
0 |
0 |
if ($hk eq 'min_count') { } |
|
|
0 |
0 |
elsif ($hk eq 'max_count') { } |
|
162
|
0 |
0 |
unless $param->{'count'} |
|
165
|
0 |
0 |
if ($hk eq "count") |
|
171
|
0 |
0 |
unless $param->{'min_count'} |
|
172
|
0 |
0 |
unless $param->{'max_count'} |
|
175
|
0 |
0 |
unless ($operation =~ /^(?:cp|ls|mb|mv|rb|rm|sync|website)$/) |
|
184
|
0 |
0 |
if ($service eq "s3" and $k =~ /^(?:include|exclude)$/) |
|
191
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
194
|
0 |
0 |
if (exists $opt{'nofork'} and $opt{'nofork'}) { } |
|
201
|
0 |
0 |
defined $err ? : |
|
202
|
0 |
0 |
if ($ok) { } |
|
207
|
0 |
0 |
if defined $err and $err =~ /^IPC::Cmd::TimeOut:/ |
|
216
|
0 |
0 |
if ($ret->{'exit_code'} == 0 and $ret->{'timeout'} == 0) { } |
|
220
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
232
|
0 |
0 |
if ($@) |
|
233
|
0 |
0 |
if ($ENV{'AWSCLI_DEBUG'}) |
|
243
|
0 |
0 |
if ($stdout_str and $stdout_str =~ /^{/) { } |
|
247
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
249
|
0 |
0 |
if (exists $ret->{'Errors'} and ref $ret->{'Errors'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (exists $ret->{'Response'}{'Errors'}{'Error'}) { } |
|
261
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
265
|
0 |
0 |
if $self->{'croak_on_error'} |