File Coverage

blib/lib/Web3/Tiny/Keccak256.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	25	27	92.5

package Web3::Tiny::Keccak256;

use strict;
use warnings;
use Exporter 'import';
use Crypt::Digest::Keccak256 ();

our $VERSION   = '0.01';
our @EXPORT_OK = qw(keccak256 keccak256_hex);

# keccak256($bytes) -> 32 raw bytes
#
# Crypt::Digest::Keccak256 (part of CryptX) implements the original Keccak
# padding/domain separation (0x01), which is what Ethereum uses for function
# selectors, address derivation, and hashing in general -- NOT NIST SHA3-256
# (which uses a 0x06 domain separator and would give different digests).
sub keccak256 {
    my ($msg) = @_;
    $msg = '' unless defined $msg;
    return Crypt::Digest::Keccak256::keccak256($msg);
}

sub keccak256_hex {
    my ($msg) = @_;
    return unpack('H*', keccak256($msg));
}

1;

__END__