This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Digest to CPAN version 1.17
[perl5.git] / cpan / Digest / t / lib / Digest / Dummy.pm
1 package Digest::Dummy;
2
3 use strict;
4 use vars qw($VERSION @ISA);
5 $VERSION = 1;
6
7 require Digest::base;
8 @ISA = qw(Digest::base);
9
10 sub new {
11     my $class = shift;
12     my $d = shift || "ooo";
13     bless { d => $d }, $class;
14 }
15
16 sub add {}
17 sub digest { shift->{d} }
18
19 1;
20