| line |
true |
false |
branch |
|
32
|
1 |
110 |
if (my $v = delete $param{$k}) |
|
44
|
1 |
36 |
defined $ENV{'AWS_CLIWRAPPER_TIMEOUT'} ? : |
|
59
|
3 |
2 |
unless (defined $AWSCLI_VERSION) |
|
64
|
1 |
2 |
if ($vs =~ m[/([0-9.]+)\s]) { } |
|
79
|
4 |
5 |
if defined $ENV{'AWS_CLIWRAPPER_CATCH_ERROR_PATTERN'} |
|
82
|
1 |
4 |
if defined $self->{'param'}{'catch_error_pattern'} |
|
94
|
1 |
3 |
defined $self->{'param'}{'catch_error_retries'} ? : |
|
|
3 |
4 |
defined $ENV{'AWS_CLIWRAPPER_CATCH_ERROR_RETRIES'} ? : |
|
96
|
1 |
6 |
if $retries < 0 |
|
108
|
5 |
8 |
defined $self->{'param'}{'catch_error_min_delay'} ? : |
|
|
14 |
13 |
defined $ENV{'AWS_CLIWRAPPER_CATCH_ERROR_MIN_DELAY'} ? : |
|
110
|
1 |
26 |
if $min_delay < 0 |
|
124
|
3 |
2 |
defined $self->{'param'}{'catch_error_max_delay'} ? : |
|
|
9 |
5 |
defined $ENV{'AWS_CLIWRAPPER_CATCH_ERROR_MAX_DELAY'} ? : |
|
126
|
1 |
13 |
if $max_delay < 0 |
|
128
|
1 |
13 |
if $min_delay > $max_delay |
|
139
|
7 |
1 |
$min == $max ? : |
|
151
|
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') { } |
|
152
|
0 |
1 |
if ($k eq '--output-file') { } |
|
159
|
0 |
0 |
ref $_ ? : |
|
163
|
0 |
0 |
if ($$v == 1) { } |
|
181
|
0 |
0 |
if ($type and $type eq "HASH") |
|
183
|
0 |
0 |
if ($hk =~ /^(?:key|name|values|value)$/) |
|
215
|
0 |
5 |
if ($service eq "ec2" and $operation eq "wait") |
|
218
|
0 |
5 |
if (ref $_[0] eq "ARRAY") |
|
224
|
0 |
5 |
if ($service eq 'ec2' and $operation eq 'run-instances') { } |
|
|
0 |
5 |
elsif ($service eq 's3' and $self->awscli_version >= 0.15.0) { } |
|
|
0 |
10 |
elsif ($service eq 's3api' and $self->awscli_version < 0.15.0) { } |
|
228
|
0 |
0 |
if ($self->awscli_version >= 0.14.0) { } |
|
231
|
0 |
0 |
if ($hk eq 'min_count') { } |
|
|
0 |
0 |
elsif ($hk eq 'max_count') { } |
|
238
|
0 |
0 |
unless $param->{'count'} |
|
241
|
0 |
0 |
if ($hk eq "count") |
|
247
|
0 |
0 |
unless $param->{'min_count'} |
|
248
|
0 |
0 |
unless $param->{'max_count'} |
|
251
|
0 |
0 |
unless ($operation =~ /^(?:cp|ls|mb|mv|rb|rm|sync|website)$/) |
|
260
|
0 |
0 |
if ($service eq "s3" and $k =~ /^(?:include|exclude)$/) |
|
267
|
0 |
5 |
if $ENV{'AWSCLI_DEBUG'} |
|
270
|
2 |
3 |
$error_re ? : |
|
278
|
3 |
7 |
unless $AWS::CLIWrapper::Error->{'Code'} |
|
280
|
5 |
2 |
if ($retries-- > 0 and $AWS::CLIWrapper::Error->{'Message'} =~ /$error_re/) |
|
284
|
0 |
5 |
if $ENV{'AWSCLI_DEBUG'} |
|
291
|
1 |
1 |
if $self->{'croak_on_error'} |
|
301
|
0 |
10 |
if (exists $opt->{'nofork'} and $opt->{'nofork'}) { } |
|
308
|
0 |
0 |
defined $err ? : |
|
309
|
0 |
0 |
if ($ok) { } |
|
314
|
0 |
0 |
if defined $err and $err =~ /^IPC::Cmd::TimeOut:/ |
|
329
|
3 |
7 |
if ($ret->{'exit_code'} == 0 and $ret->{'timeout'} == 0) { } |
|
333
|
0 |
3 |
if $ENV{'AWSCLI_DEBUG'} |
|
345
|
0 |
3 |
if ($@) |
|
346
|
0 |
0 |
if ($ENV{'AWSCLI_DEBUG'}) |
|
356
|
0 |
7 |
if ($stdout_str and $stdout_str =~ /^{/) { } |
|
360
|
0 |
0 |
if $ENV{'AWSCLI_DEBUG'} |
|
362
|
0 |
0 |
if (exists $ret->{'Errors'} and ref $ret->{'Errors'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (exists $ret->{'Response'}{'Errors'}{'Error'}) { } |
|
374
|
0 |
7 |
if $ENV{'AWSCLI_DEBUG'} |