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