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             # Pragmas.
4 4     4   35304 use strict;
  4         9  
  4         128  
5 4     4   18 use warnings;
  4         7  
  4         139  
6              
7             # Modules.
8 4     4   3391 use Class::Utils qw(set_params);
  4         75292  
  4         81  
9              
10             # Version.
11             our $VERSION = 0.02;
12              
13             # Constructor.
14             sub new {
15 3     3 1 4774 my ($class, @params) = @_;
16              
17             # Create object.
18 3         10 my $self = bless {}, $class;
19              
20             # Process parameters.
21 3         13 set_params($self, @params);
22              
23             # Object.
24 1         6 return $self;
25             }
26              
27             # Get dcmdump for DICOM file.
28             sub get {
29 0     0 1   my ($self, $dicom_file) = @_;
30 0           my $dcmdump = `dcmdump $dicom_file`;
31 0           chomp $dcmdump;
32 0           return $dcmdump;
33             }
34              
35             1;
36              
37             __END__