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 3     3   29217 use strict;
  3         6  
  3         81  
5 3     3   16 use warnings;
  3         5  
  3         90  
6              
7             # Modules.
8 3     3   2486 use Class::Utils qw(set_params);
  3         96944  
  3         78  
9              
10             # Version.
11             our $VERSION = 0.03;
12              
13             # Constructor.
14             sub new {
15 3     3 1 6284 my ($class, @params) = @_;
16              
17             # Create object.
18 3         9 my $self = bless {}, $class;
19              
20             # Process parameters.
21 3         16 set_params($self, @params);
22              
23             # Object.
24 1         8 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__