File Coverage

blib/lib/Crypt/Skip32/Base64URLSafe.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	28	30	93.3

package Crypt::Skip32::Base64URLSafe;
use strict;
use warnings;
use MIME::Base64::URLSafe;
our $VERSION = '0.33';
use base 'Crypt::Skip32';

sub encrypt_number_b64_urlsafe {
    my ( $self, $number ) = @_;
    my $plaintext  = pack( 'N', $number );
    my $ciphertext = $self->encrypt($plaintext);
    my $b64        = urlsafe_b64encode($ciphertext);
    return $b64;
}

sub decrypt_number_b64_urlsafe {
    my ( $self, $b64 ) = @_;
    my $ciphertext = urlsafe_b64decode($b64);
    my $plaintext  = $self->decrypt($ciphertext);
    my $number     = unpack( 'N', $plaintext );
    return $number;
}

1;

__END__