File Coverage

blib/lib/Linux/TempFile.pm

Criterion	Covered	Total	%
statement	20	26	76.9
branch	1	4	25.0
condition			n/a
subroutine	7	8	87.5
pod	2	2	100.0
total	30	40	75.0

package Linux::TempFile;
use 5.008001;
use strict;
use warnings;
use base 'IO::Handle';

our $VERSION = "0.01";

require XSLoader;
XSLoader::load('Linux::TempFile', $VERSION);

use Carp ();
use File::Spec;

sub new {
    my ($class, $dir) = @_;
    $dir = File::Spec->tmpdir unless defined $dir;
    my $fd = _open_tmpfile($dir);
    my $self = $class->SUPER::new();
    $self->fdopen($fd, '+>');
}

sub link {
    my ($self, $newpath) = @_;
    Carp::croak("path required") unless length $newpath;
    my $oldpath = '/proc/self/fd/' . fileno $self;
    _linkat($oldpath => $newpath);
}

1;
__END__