File Coverage

blib/lib/Dicom/File/Detect.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	37	38	97.3

package Dicom::File::Detect;

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

use Error::Pure qw(err);
use Readonly;

# Constants.
Readonly::Array our @EXPORT => qw(dicom_detect_file);
Readonly::Scalar our $DCM_MAGIC => qw{DICM};

our $VERSION = 0.05;

# Detect DICOM file.
sub dicom_detect_file {
	my $file = shift;

	my $dcm_flag = 0;
	open my $fh, '<', $file or err "Cannot open file '$file'.";
	my $seek = seek $fh, 128, 0;
	my $magic;
	my $read = read $fh, $magic, 4;
	close $fh or err "Cannot close file '$file'.";

	if ($magic eq $DCM_MAGIC) {
		return 1;
	} else {
		return 0;
	}
}

1;

__END__