File Coverage

blib/lib/Digest/Hamsi.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	20	85.0

package Digest::Hamsi;

use strict;
use warnings;
use parent qw(Exporter Digest::base);

our $VERSION = '0.03';
$VERSION = eval $VERSION;

eval {
    require XSLoader;
    XSLoader::load(__PACKAGE__, $VERSION);
    1;
} or do {
    require DynaLoader;
    DynaLoader::bootstrap(__PACKAGE__, $VERSION);
};

our @EXPORT_OK = qw(
    hamsi_224 hamsi_224_hex hamsi_224_base64
    hamsi_256 hamsi_256_hex hamsi_256_base64
    hamsi_384 hamsi_384_hex hamsi_384_base64
    hamsi_512 hamsi_512_hex hamsi_512_base64
);

sub add_bits {
    my ($self, $data, $bits) = @_;
    if (2 == @_) {
        return $self->_add_bits(pack('B*', $data), length $data);
    }
    return $self->_add_bits($data, $bits);
}


1;

__END__