File Coverage

blib/lib/Data/Range/Compare/Stream/Iterator/File/Temp.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Range::Compare::Stream::Iterator::File::Temp;
2              
3 4     4   47716 use strict;
  4         10  
  4         98  
4 4     4   20 use warnings;
  4         7  
  4         106  
5 4     4   1162 use File::Temp qw/ :seekable /;
  4         12277  
  4         821  
6              
7             sub get_temp {
8 138     138 1 1859 my ($self,%args)=@_;
9 138         393 %args=(UNLINK=>0,%args);
10 138 100       429 $args{DIR}=$self->{tmpdir} if defined($self->{tmpdir});
11              
12 138         784 File::Temp->new(%args);
13             }
14              
15             1;