package AniDB::Hashing;
use 5.024;
use strict;
use warnings;
use experimental 'signatures';
use Digest::ED2K;
use namespace::clean;

sub hash_fh($fh) {
    my $digest = Digest::ED2K->new;
    while (my $bytes_read = $fh->sysread($buffer,1024*1024)) {
        $digest->add($buffer);
    }
    return $digest->hexdigest;
}

1;