File Coverage

blib/lib/Image/ExifTool/DICOM.pm

Criterion	Covered	Total	%
statement	79	148	53.3
branch	55	120	45.8
condition	16	80	20.0
subroutine	4	4	100.0
pod	0	1	0.0
total	154	353	43.6

line	stmt	sub	time	code
1				#------------------------------------------------------------------------------
2				# File: DICOM.pm
3				#
4				# Description: Read DICOM and ACR-NEMA medical images
5				#
6				# Revisions: 2005/11/09 - P. Harvey Created
7				# 2009/11/19 - P. Harvey Added private GE tags from ref 4
8				# 2009/12/11 - P. Harvey Updated to DICOM 2008 spec
9				# 2010/04/08 - P. Harvey Updated to DICOM 2009 spec
10				#
11				# References: 1) http://medical.nema.org/
12				# 2) http://www.sph.sc.edu/comd/rorden/dicom.html
13				# 3) http://www.dclunie.com/
14				# 4) http://www.gehealthcare.com/usen/interoperability/dicom/docs/2258357r3.pdf
15				#------------------------------------------------------------------------------
16
17				package Image::ExifTool::DICOM;
18
19	1	1	5164	use strict;
	1		2
	1		33
20	1	1	6	use vars qw($VERSION %uid);
	1		2
	1		50
21	1	1	5	use Image::ExifTool qw(:DataAccess :Utils);
	1		2
	1		19961
22
23				$VERSION = '1.22';
24
25				# DICOM VR (Value Representation) format conversions
26				my %dicomFormat = (
27				FD => 'double',
28				FL => 'float',
29				OB => 'int8u',
30				OF => 'float',
31				OW => 'int16u',
32				SL => 'int32s',
33				SS => 'int16s',
34				UL => 'int32u',
35				US => 'int16u',
36				);
37
38				# VR elements with 32-bit length in explicit VR syntax
39				my %vr32 = ( OB=>1, OW=>1, OF=>1, SQ=>1, UT=>1, UN=>1 );
40
41				# data elements with implicit VR regardless of syntax
42				my %implicitVR = (
43				'FFFE,E000' => 1,
44				'FFFE,E00D' => 1,
45				'FFFE,E0DD' => 1,
46				);
47
48				# DICOM tags
49				# Note: "XxxGroupLength" tags are generated automatically if they don't exist
50				%Image::ExifTool::DICOM::Main = (
51				GROUPS => { 2 => 'Image' },
52				VARS => { NO_LOOKUP => 1 }, # omit tags from lookup (way too many!)
53				NOTES => q{
54				The DICOM format is based on the ACR-NEMA specification, but adds a file
55				header and a number of new tags. ExifTool will extract information from
56				either type of file. The Tag ID's in the following table are the tag group
57				and element numbers in hexadecimal, as given in the DICOM specification (see
58				L). The table below contains tags from the DICOM
59				2009 and earlier specifications plus some vendor-specific private tags.
60
61				Note that DICOM information may be saved in other file formats using the
62				L