#!/usr/local/bin/perl -w
# $Id: md5-bench.pl,v 1.5 2004/02/15 00:55:02 lackas Exp $
# Benchmark
# compares Digest::Perl::MD5 and Digest::MD5

use strict;
use Benchmark 'cmpthese';
use Digest::MD5;
use lib '../lib';
use Digest::Perl::MD5;

cmpthese(-60,{
	'MD5' => 'Digest::MD5::md5(q!delta!)',
	'Perl::MD5' => 'Digest::Perl::MD5::md5(q!delta!)',
});