File Coverage

blib/lib/CGI/Application/Plugin/Authentication/Driver/Filter/crypt.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	26	26	100.0

package CGI::Application::Plugin::Authentication::Driver::Filter::crypt;
$CGI::Application::Plugin::Authentication::Driver::Filter::crypt::VERSION = '0.21';
use strict;
use warnings;

sub check {
    my $class    = shift;
    my $param    = shift;
    my $plain    = shift;
    my $filtered = shift;

    return ( $class->filter( $param, $plain, $filtered ) eq $filtered ) ? 1 : 0;
}

sub filter {
    my ($class, undef, $plain, $salt) = @_;
    if (!$salt) {
        my @alphabet = ( '.', '/', 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );
        $salt = join '', @alphabet[ rand 64, rand 64 ];
    }
    return crypt( $plain, $salt );
}

1;
__END__