Perl-Critic-PolicyBundle-SNEZ
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/Perl/Critic/Policy/ControlStructures/ProhibitMultipleSubscripts.run view on Meta::CPAN
## cut
foreach my $cred_ref (@credentials) {
$cred_ref->{port} = 21 if not $cred_ref->{port};
if ($cred_ref->{password}) {
$cred_ref->{password} = encrypt_password($cred_ref->{password});
}
else {
$cred_ref->{password} = default_password();
}
if ($cred_ref->{key}) {
$cred_ref->{key} = encrypt_private_key($cred_ref->{key});
}
else {
$cred_ref->{key} = default_key();
}
}
## name Block in loop list
## failures 1
## cut
foreach my $cred_ref (@credentials) {
if ( $cred_ref->{port} != 21
and $cred_ref->{port} != 22
and $cred_ref->{port} != 23
) {
$cred_ref->{host} = $cred_ref->{host} . ':' . $cred_ref->{port};
}
$cred_ref->{password} = decrypt_password($cred_ref->{password}) if $cred_ref->{password};
$cred_ref->{key} = decrypt_private_key($cred_ref->{key}) if $cred_ref->{key};
}
## name Nested subscript
## failures 0
## cut
foreach my $map_ref (@mappings) {
$map_ref->{ids}[ $map_ref->{id_level} ] = $map_ref->{new_id};
}
## name Similar-looking subscripts with different values
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.668 second using v1.00-cache-2.02-grep-82fe00e-cpan-2cc899e4a130 )