gistfile1.txt

sub hash_password { 
    my $self = shift;
                    
    my ($plain_text, $settings_str) = @_;
            
    unless ($settings_str) {
        my $salt = join('', map { chr(int(rand(256))) } 1 .. 16);
        $salt = Crypt::Eksblowfish::Bcrypt::en_base64( $salt );
        return(Crypt::Eksblowfish::Bcrypt::bcrypt_hash({
                key_nul => 1,
                cost => 10,
                salt => $salt,
        }, $password));
    }

    return Crypt::Eksblowfish::Bcrypt::bcrypt($plain_text, $settings_str);
}