File Coverage

blib/lib/Digest/Oplop.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	42	42	100.0

package Digest::Oplop;

use strict;
use warnings;
use Digest::MD5 qw(md5_base64);
use Encode qw(encode_utf8);
use English '-no_match_vars';

use constant PASSWORD_LENGTH => 8;

use base 'Exporter';
our @EXPORT_OK = qw(oplop);

our $VERSION = '0.01';

sub oplop {
    my ( $master_password, $label ) = @_;
    my $password = md5_base64( encode_utf8( $master_password . $label ) );

    ## DIgest::MD5 has no alternative to base64.urlsafe_b64encode, but
    ## this statement realize their implemention description

    $password =~ tr[+/][-_];

    if ( $password =~ /(\d+)/ ) {
        if ( $LAST_MATCH_START[0] > PASSWORD_LENGTH - 1 ) {
            $password = $1 . $password;
        }
    }
    else {
        $password = "1$password";
    }
    return substr $password, 0, PASSWORD_LENGTH;
}
1;

__END__