#!/usr/bin/perl

use strict;
use warnings;
use Digest::JHash;
use Benchmark qw(cmpthese);

my @dat;
for my $i (1..100) {
    $dat[$i] = '';
    $dat[$i] .= chr(int(rand(256))) for 1..100000;
}

cmpthese (100,
{
    u32 => sub {
               for (1..100) {
                   my $h = Digest::JHash::jhash($dat[$_]);
               }
           },

    u64 => sub {
               for (1..100) {
                   my $h = Digest::JHash::jhash_orig($dat[$_]);
               }
           },
} );