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   69767 use strict;
  4         8  
  4         368  
4 4     4   19 use warnings;
  4         8  
  4         109  
5 4     4   1080 use File::Temp qw/ :seekable /;
  4         12704  
  4         977  
6              
7             sub get_temp {
8 138     138 1 4026 my ($self,%args)=@_;
9 138         942 %args=(UNLINK=>0,%args);
10 138 100       773 $args{DIR}=$self->{tmpdir} if defined($self->{tmpdir});
11              
12 138         1616 File::Temp->new(%args);
13             }
14              
15             1;