File Coverage

blib/lib/CAD/AutoCAD/Detect.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	9	9	100.0
pod	1	1	100.0
total	49	51	96.0

package CAD::AutoCAD::Detect;

use base qw(Exporter);
use strict;
use warnings;

use CAD::AutoCAD::Version;
use Error::Pure qw(err);
use List::MoreUtils qw(any);
use Readonly;

# Constants.
Readonly::Array our @EXPORT => qw(detect_dwg_file);

our $VERSION = 0.03;

# Detect DWG file.
sub detect_dwg_file {
	my $file = shift;

	my $dwg_flag = 0;
	open my $fh, '<', $file or err "Cannot open file '$file'.";
	my $magic;
	my $read = read $fh, $magic, 6;
	close $fh or err "Cannot close file '$file'.";

	# Remove NULL characters from end of string.
	$magic =~ s/\x00$//;

	if ($read == 6 && (any { $_ eq $magic }
		CAD::AutoCAD::Version->list_of_acad_identifiers)) {

		return $magic;
	} else {
		return;
	}
}

1;

__END__