File Coverage

blib/lib/File/Find/Rule/Digest.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch			n/a
condition			n/a
subroutine	10	13	76.9
pod	0	4	0.0
total	39	49	79.5

package File::Find::Rule::Digest;

use strict;
use vars qw($VERSION);
$VERSION = 0.01;

use Digest;
use FileHandle;
use File::Find::Rule;
use base qw(File::Find::Rule);

use vars qw(@EXPORT);
@EXPORT = @File::Find::Rule::EXPORT;

sub File::Find::Rule::md2  { _match_digest(shift, "MD2"   => shift)  }
sub File::Find::Rule::md5  { _match_digest(shift, "MD5"   => shift)  }
sub File::Find::Rule::sha1 { _match_digest(shift, "SHA-1" => shift)  }
sub File::Find::Rule::hmac { _match_digest(shift, "HMAC"  => shift)  }

sub _match_digest {
    my $self = shift->_force_object();
    my($imp, $checksum) = @_;
    $self->exec(
	sub {
	    my $file = shift;
	    my $digest = Digest->new($imp);
	    $digest->addfile(FileHandle->new($file));
	    $digest->hexdigest eq $checksum;
	},
    );
}


1;
__END__