IO::Digest - Calculate digests while reading or writing

       Chia-liang Kao <clkao@clkao.org>

       Copyright 2004 by Chia-liang Kao <clkao@clkao.org>.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl
       itself.

       See <http://www.perl.com/perl/misc/Artistic.html>

perl v5.38.2                                       2024-08-10                                    IO::Digest(3pm)

       This module allows you to calculate digests while reading or writing file handles.  This avoids the case
       you need to reread the same content to compute the digests after written a file.

       IO::Digest - Calculate digests while reading or writing

        use IO::Digest;

        # Get a Digest::MD5 object that takes input while $fh being written or read
        my $fh;
        my $iod = IO::Digest->new ($fh, 'MD5');

        print $fh "fooo";
        print $iod->hexdigest

        ----------------------------------- ------ ------ ------ ------ ------ ------
        File                                  stmt branch   cond    sub   time  total
        ----------------------------------- ------ ------ ------ ------ ------ ------
        blib/lib/IO/Digest.pm                100.0    n/a    n/a  100.0  100.0  100.0
        Total                                100.0    n/a    n/a  100.0  100.0  100.0
        ----------------------------------- ------ ------ ------ ------ ------ ------