File Coverage

blib/lib/File/Find/Rule/Dicom.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package File::Find::Rule::Dicom;
2              
3 3     3   83951 use base qw(File::Find::Rule);
  3         17  
  3         1383  
4 3     3   17726 use strict;
  3         7  
  3         58  
5 3     3   14 use warnings;
  3         8  
  3         85  
6              
7 3     3   1504 use Dicom::File::Detect qw(dicom_detect_file);
  3         41736  
  3         48  
8              
9             our $VERSION = 0.05;
10              
11             # Detect DICOM file.
12             sub File::Find::Rule::dicom_file {
13 1     1 0 248 my $file_find_rule = shift;
14 1         5 my $self = $file_find_rule->_force_object;
15             return $self->file->exec(sub{
16 2     2   1085 my $file = shift;
17 2         9 return dicom_detect_file($file);
18 1         43 });
19             }
20              
21             1;
22              
23             __END__