File Coverage

blib/lib/DicomPack/Util/DicomDumper.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	31	45.1

##############################################################################
# DicomDumper.pm -- a module to dump the conent of a dicom file to stdout
#
# Copyright (c) 2010 Baoshe Zhang. All rights reserved.
# This file is part of "DicomPack". DicomReader is free software. You can
# redistribute it and/or modify it under the same terms as Perl itself.
##############################################################################

package DicomPack::Util::DicomDumper;

use strict;
use warnings;

use DicomPack::IO::DicomReader;

our $VERSION = '0.95';

sub new
{
	my $classname = shift;
	my $self = {};
	bless $self, $classname;
	return $self;
}

# dump the content of a dicom file
sub dump
{
	my $self = shift;
	my $infile = shift;
	my $verbose = shift;

	$verbose = 0 unless defined $verbose;
	$verbose = 0 unless $verbose =~ /^[0-2]$/;

	my $reader = DicomPack::IO::DicomReader->new($infile);

	$reader->showDicomField($verbose);
}

1;

__END__