7 use vars qw($VERSION @ISA);
11 @ISA = qw(Digest::base);
15 my $d = shift || "ooo";
16 bless { d => $d }, $class;
19 sub digest { shift->{d} }
23 $d = Digest->new("Dummy");
24 print "not " unless $d->digest eq "ooo";
28 print "not " unless $d->digest eq "ooo";
31 $Digest::MMAP{"Dummy-24"} = [["NotThere"], "NotThereEither", ["Digest::Dummy", 24]];
32 $d = Digest->new("Dummy-24");
33 print "not " unless $d->digest eq "24";