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