1package Digest::MD4;
2
3use strict;
4use vars qw($VERSION @ISA @EXPORT_OK);
5
6require Exporter;
7require DynaLoader;
8
9*import = \&Exporter::import;
10@ISA = qw(Exporter DynaLoader);
11
12@EXPORT_OK = qw(md4 md4_hex md4_base64);
13
14$VERSION = '1.1';
15
16eval {
17    Digest::MD4->bootstrap($VERSION);
18};
19if ($@) {
20    # Try to load the pure perl version
21    require Digest::Perl::MD4;
22
23    Digest::Perl::MD4->import(qw(md4 md4_hex md4_base64));
24    push(@ISA, "Digest::Perl::MD4");  # make OO interface work
25}
26else {
27    *reset = \&new;
28}
29
301;
31
32=head1 NAME
33
34Digest::MD4 - Wrapper for Digest::Perl::MD4, see which.
35
36=cut
37