1package Digest::Dummy; 2 3use strict; 4use vars qw($VERSION @ISA); 5$VERSION = 1; 6 7require Digest::base; 8@ISA = qw(Digest::base); 9 10sub new { 11 my $class = shift; 12 my $d = shift || "ooo"; 13 bless { d => $d }, $class; 14} 15 16sub add {} 17sub digest { shift->{d} } 18 191; 20 21