| line |
l |
!l&&r |
!l&&!r |
condition |
|
42
|
15 |
10 |
0 |
$opt{'key'} || $attr |
|
49
|
0 |
4 |
0 |
shift() || _default_profile() |
|
66
|
0 |
0 |
0 |
shift() || _default_profile() |
|
71
|
0 |
0 |
0 |
$CREDENTIALS ||= sub {
my $path = 'File::Spec'->catfile(_default_dir(), 'credentials');
return {} unless -r $path;
return _parse($path);
}
->() |
|
73
|
0 |
0 |
0 |
$CREDENTIALS_PROFILE_OF{$profile} ||= 'AWS::CLI::Config::Profile'->_new($CREDENTIALS->{$profile}) |
|
78
|
2 |
1 |
0 |
shift() || _default_profile() |
|
88
|
2 |
1 |
0 |
$CONFIG ||= sub {
my $path = exists $ENV{'AWS_CONFIG_FILE'} && $ENV{'AWS_CONFIG_FILE'} ? $ENV{'AWS_CONFIG_FILE'} : 'File::Spec'->catfile(_default_dir(), 'config');
return {} unless -r $path;
return _parse($path);
}
->() |
|
91
|
0 |
2 |
0 |
$CONFIG_PROFILE_OF{$profile} ||= 'AWS::CLI::Config::Profile'->_new($CONFIG->{$profile}) |
|
111
|
0 |
1 |
0 |
shift() || _default_profile() |
|
130
|
2 |
0 |
6 |
not defined $key or $key eq '' |