benchmark_murmurhash.pl

#!perl

use Benchmark qw(:all);
use Digest::MurmurHash3::PurePerl;
use Digest::MurmurHash3;

my $count = 1e7;

cmpthese($count, {
    'Digest::MurmurHash3::PurePerl' => sub { Digest::MurmurHash3::PurePerl::murmur32('this is a test. ignore me.') },
    'Digest::MurmurHash3' => sub { Digest::MurmurHash3::murmur32('this is a test. ignore me.') },
});

__END__

$ perl benchmark_murmurhash.pl
                                   Rate Digest::MurmurHash3::PurePerl Digest::MurmurHash3
Digest::MurmurHash3::PurePerl   53596/s                            --                -99%
Digest::MurmurHash3           8849558/s                        16412%                  --