1898184e3Ssthenpackage Digest::Dummy; 2898184e3Ssthen 3898184e3Ssthenuse strict; 4*256a93a4Safresh1use warnings; 5*256a93a4Safresh1 6*256a93a4Safresh1our $VERSION = 1; 7*256a93a4Safresh1our @ISA = qw(Digest::base); 8898184e3Ssthen 9898184e3Ssthenrequire Digest::base; 10898184e3Ssthen 11898184e3Ssthensub new { 12898184e3Ssthen my $class = shift; 13898184e3Ssthen my $d = shift || "ooo"; 14898184e3Ssthen bless { d => $d }, $class; 15898184e3Ssthen} 16898184e3Ssthen 17898184e3Ssthensub add { } 18898184e3Ssthensub digest { shift->{d} } 19898184e3Ssthen 20898184e3Ssthen1; 21898184e3Ssthen 22