File Coverage

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

Criterion	Covered	Total	%
statement	35	35	100.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	46	49	93.8

package File::Find::Rule::DMIDecode;

use base qw(File::Find::Rule);
use strict;
use warnings;

use List::MoreUtils qw(any);
use Parse::DMIDecode;
use Perl6::Slurp;

our $VERSION = 0.03;

# Detect dmidecode file.
sub File::Find::Rule::dmidecode_file {
	my $file_find_rule = shift;
	my $self = $file_find_rule->_force_object;
	return $self->file->exec(sub{
		my $file = shift;

		my $data = slurp($file);
		my $dmidecode = Parse::DMIDecode->new;
		$dmidecode->parse($data);

		return $dmidecode->dmidecode_version ? 1 : 0;
	});
}

sub File::Find::Rule::dmidecode_handle {
	my ($file_find_rule, $handle) = @_;
	my $self = $file_find_rule->_force_object;
	return $self->file->exec(sub{
		my $file = shift;

		my $data = slurp($file);
		my $dmidecode = Parse::DMIDecode->new;
		$dmidecode->parse($data);

		return any { $_->handle eq $handle } $dmidecode->get_handles;
	});
}

1;

__END__