xref: /openbsd-src/gnu/usr.bin/perl/cpan/Digest/t/lib/Digest/Dummy.pm (revision 256a93a44f36679bee503f12e49566c2183f6181)

package Digest::Dummy;

use strict;
use warnings;

our $VERSION = 1;
our @ISA     = qw(Digest::base);

require Digest::base;

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

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

1;