$ diff DigestColumns.pm DigestColumns.pm.org
13d12
< __PACKAGE__->mk_classdata( 'digest_key' );
42d40
<       key       => 'hoge',
54c52
<   __PACKAGE__->digest_key('hoge');
---
>
82d79
<       key       => 'hoge',
98d94
<     $self->digest_key( $args{key} ) if exists $args{key};
187,191d182
< sub digest {
<     my ($self ,$val) = @_;
<     return $self->_get_digest_string( $val );
< }
<
196,197c187
<     my $d_val = $value . ($self->digest_key||'');
<     $self->digest_maker->add($d_val);
---
>     $self->digest_maker->add($value);