1package MD5;  # legacy stuff
2
3use strict;
4use vars qw($VERSION @ISA);
5
6$VERSION = '2.03';  # $Date: 2003/11/27 08:42:40 $
7
8require Digest::MD5;
9@ISA=qw(Digest::MD5);
10
11sub hash    { shift->new->add(@_)->digest;    }
12sub hexhash { shift->new->add(@_)->hexdigest; }
13
141;
15__END__
16
17=head1 NAME
18
19MD5 - Perl interface to the MD5 Message-Digest Algorithm
20
21=head1 SYNOPSIS
22
23 use MD5;
24
25 $context = new MD5;
26 $context->reset();
27
28 $context->add(LIST);
29 $context->addfile(HANDLE);
30
31 $digest = $context->digest();
32 $string = $context->hexdigest();
33
34 $digest = MD5->hash(SCALAR);
35 $string = MD5->hexhash(SCALAR);
36
37=head1 DESCRIPTION
38
39The C<MD5> module is B<depreciated>.  Use C<Digest::MD5> instead.
40
41The current C<MD5> module is just a wrapper around the C<Digest::MD5>
42module.  It is provided so that legacy code that rely on the old
43interface still work and get the speed benefit of the new module.
44
45In addition to the methods provided for C<Digest::MD5> objects, this
46module provide the class methods MD5->hash() and MD5->hexhash() that
47do the same as the md5() and md5_hex() functions provided by
48C<Digest::MD5>.
49
50=head1 SEE ALSO
51
52L<Digest::MD5>
53
54=cut
55