view release on metacpan or  search on metacpan

benchmark/simple_digest.pl  view on Meta::CPAN

    [5_000, 10_000],
    [2_000, 100_000],
    [500, 1_000_000],
    [50, 10_000_000],
    [10, 100_000_000],
    [5, 1_000_000_000],
]);

foreach my $test (@$test_set) {
    my ($file, $iter, $size) = @$test;
    say "# $iter iterations on ${size}B file";
    cmpthese(
        $iter,
        {
            'md5'    => sub { $file->digest('MD5') },
            'sha1'   => sub { $file->digest('SHA-1') },
            'sha256' => sub { $file->digest('SHA-256') },
        }
    );
}