package Iotta::Input::Checksum;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");
our $digest_ok = eval "require Digest::SHA1;";
sub run {
my $self = shift;
my $m = shift;
my $d = shift;
if ($digest_ok) {
$$m{checksum} = &Digest::SHA1::sha1_hex($d);
}
$self->next->run ($m, $d) if ($self->next);
return 0;
}
sub initialize {
my $self = shift;
$self->SUPER::initialize (@_);
}
1;
Platon Group <platon@platon.sk> http://platon.sk/
|