File Coverage

blib/lib/Dicom/DCMTK/DCMDump/Get.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 19 24 79.1


line stmt bran cond sub pod time code
1             package Dicom::DCMTK::DCMDump::Get;
2              
3 3     3   94435 use strict;
  3         19  
  3         88  
4 3     3   17 use warnings;
  3         6  
  3         85  
5              
6 3     3   1875 use Class::Utils qw(set_params);
  3         102318  
  3         75  
7              
8             our $VERSION = 0.04;
9              
10             # Constructor.
11             sub new {
12 3     3 1 5220 my ($class, @params) = @_;
13              
14             # Create object.
15 3         10 my $self = bless {}, $class;
16              
17             # Process parameters.
18 3         14 set_params($self, @params);
19              
20             # Object.
21 1         9 return $self;
22             }
23              
24             # Get dcmdump for DICOM file.
25             sub get {
26 0     0 1   my ($self, $dicom_file) = @_;
27 0           my $dcmdump = `dcmdump $dicom_file`;
28 0           chomp $dcmdump;
29 0           return $dcmdump;
30             }
31              
32             1;
33              
34             __END__