Yet Another CPAN Grep

QBit-Application-Model-Authorization ( M/MA/MADSKILL/QBit-Application-Model-Authorization-0.007.tar.gz, MADSKILL, 2016; MetaCPAN )

QBit-Application-Model-Authorization/lib/QBit/Application/Model/Authorization.pm ( view source; MetaCPAN )


        -key     => $SALT,
        -cipher  => 'Blowfish'
    );

    return $cipher->encrypt(to_json($session));
}

sub _password_hash {
    my ($self, $key, $password) = @_;

    utf8::encode($key)

      -key     => $SALT,
        -cipher  => 'Blowfish'
    );

    try {
        $session = from_json($cipher->decrypt($session));
    }
    catch {
        throw Exception::Authorization::BadSession