File Coverage

blib/lib/Digest/CubeHash/XS.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	20	95.0

package Digest::CubeHash::XS;

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

our $VERSION = '0.05';
$VERSION = eval $VERSION;

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

our @EXPORT_OK = qw(
    cubehash_224 cubehash_224_hex cubehash_224_base64
    cubehash_256 cubehash_256_hex cubehash_256_base64
    cubehash_384 cubehash_384_hex cubehash_384_base64
    cubehash_512 cubehash_512_hex cubehash_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__