Digest::CRC vs String::CRC32

bench_crc.pl

#!/usr/bin/env perl

use 5.014;
use warnings;
use Benchmark 'cmpthese';
use Digest::CRC   ();
use String::CRC32 ();

my $payload = 'a' x 1024;

cmpthese(
  -2,
  { 'Digest::CRC'   => sub { Digest::CRC::crc32($payload) },
    'String::CRC32' => sub { String::CRC32::crc32($payload) },
  }
);

results.txt

                  Rate   Digest::CRC String::CRC32
Digest::CRC      432/s            --         -100%
String::CRC32 285460/s        65967%            --