File Coverage

blib/lib/Bubblegum/Wrapper/Digest.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	10	80.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	1	2	50.0
total	46	49	93.8

# ABSTRACT: Bubblegum Wrapper around Hashing Algorithms
package Bubblegum::Wrapper::Digest;

use 5.10.0;
use Bubblegum::Class;

use Digest::MD5 ();
use Digest::SHA ();

use Bubblegum::Exception;

extends 'Bubblegum::Object::Instance';

our $VERSION = '0.45'; # VERSION

sub BUILD {
    my $self = shift;
    $self->data->typeof('str')
        or Bubblegum::Exception->throw(
            verbose => 1,
            message => ref($self)->format(
                'Wrapper package "%s" requires string data'
            ),
        );
}

sub encode {
    my $self = shift;
    my $type = shift // 'md5_hex';

    my $encoder;
    my $md5 = [qw(md5 md5_hex)];
    my $sha = [qw(sha1_base64 sha1 sha1_hex)];
    my $hmc = [qw(hmac_sha1 hmac_sha1_hex)];

    $encoder = 'Digest::MD5' if $md5->one('$a eq $b', $type);
    $encoder = 'Digest::SHA' if $sha->one('$a eq $b', $type);
    $encoder = 'Digest::SHA' if $hmc->one('$a eq $b', $type);

    return undef unless $encoder;
    return $encoder->can($type)->($self->data);
}

1;

__END__