File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	0	2	0.0
total	38	40	95.0

package File::Find::Rule::DWG;

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

use CAD::AutoCAD::Detect qw(detect_dwg_file);

our $VERSION = 0.02;

# Detect DWG.
sub File::Find::Rule::dwg {
	my $file_find_rule = shift;
	my $self = $file_find_rule->_force_object;
	return $self->file->exec(sub{
		my $file = shift;
		return detect_dwg_file($file);
	});
}

# Detect DWG magic.
sub File::Find::Rule::dwg_magic {
	my ($file_find_rule, $acad_magic) = @_;
	my $self = $file_find_rule->_force_object;
	return $self->file->exec(sub{
		my $file = shift;
		my $detected_acad_magic = detect_dwg_file($file);
		if ($detected_acad_magic && $detected_acad_magic eq $acad_magic) {
			return 1;
		} else {
			return 0;
		}
	});
}

1;

__END__