Digest::MD5::M4p - Perl interface to a variant of the MD5 algorithm

Digest-MD5-M4p documentation

Contained in the Digest-MD5-M4p distribution.

Index

NAME
SYNOPSIS
AUTHORS

Code Index:

package Digest::MD5::M4p
__END__
EOF

NAME

Digest::MD5::M4p - Perl interface to a variant of the MD5 algorithm

SYNOPSIS

 See Digest::MD5.

AUTHORS

The original MD5 interface was written by Neil Winton (N.Winton@axion.bt.co.uk).

The current Digest::MD5 module was written by Gisle Aas <gisle@ActiveState.com>.

Only minor hacks are required for this !! incompatible !! version.

Digest-MD5-M4p documentation

Contained in the Digest-MD5-M4p distribution.

package Digest::MD5::M4p;

use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = '0.01';

require Exporter;
*import = \&Exporter::import;
@EXPORT_OK = qw(md5 md5_hex md5_base64);

require DynaLoader;
@ISA=qw(DynaLoader);

eval {
    require Digest::base;
    push(@ISA, 'Digest::base');
};
if ($@) {
    my $err = $@;
    *add_bits = sub { die $err };
}


eval {
    Digest::MD5::M4p->bootstrap($VERSION);
};
if ($@) {
    my $olderr = $@;
    eval {
	# Try to load the pure perl version which does not exist so far
	require Digest::Perl::MD5::M4p;

	Digest::Perl::MD5::M4p->import(qw(md5 md5_hex md5_base64));
	push(@ISA, "Digest::Perl::MD5");  # make OO interface work
    };
    if ($@) {
	# restore the original error
	die $olderr;
    }
}
else {
    *reset = \&new;
}

1;
__END__