package Digest::Dummy;

use strict;
use vars qw($VERSION @ISA);
$VERSION = 1;

require Digest::base;
@ISA = qw(Digest::base);

sub new {
    my $class = shift;
    my $d = shift || "ooo";
    bless { d => $d }, $class;
}

sub add {}
sub digest { shift->{d} }

1;