package Data::Range::Compare::Stream::Iterator::File::Temp;
use strict;
use warnings;
use File::Temp qw/ :seekable /;
sub get_temp {
my ($self,%args)=@_;
%args=(UNLINK=>0,%args);
$args{DIR}=$self->{tmpdir} if defined($self->{tmpdir});
File::Temp->new(%args);
}
1;