File Coverage

blib/lib/Gnuplot/Builder/TempFile.pm

Criterion	Covered	Total	%
statement	27	47	57.4
branch	0	6	0.0
condition			n/a
subroutine	9	13	69.2
pod	1	1	100.0
total	37	67	55.2

package Gnuplot::Builder::TempFile;
use strict;
use warnings;
use Exporter qw(import);
use File::Temp;
use File::Spec;
use IPC::Open3 qw(open3);
use Gnuplot::Builder 0.13 ();
use Gnuplot::Builder::Process;
use Carp;

our $VERSION = "0.03";

our @EXPORT_OK = qw(run);

{
    my $null_handle;

    sub _null_handle {
        return $null_handle if defined $null_handle;
        my $devnull = File::Spec->devnull;
        open $null_handle, ">", $devnull or confess("Cannot open $devnull: $!");
        return $null_handle;
    }
}

sub run {
    my (@gnuplot_command) = @_;
    local $| = 1;
    if(!@gnuplot_command) {
        @gnuplot_command = qw(gnuplot --persist);
    }
    my $tempfile = File::Temp->new;
    $tempfile->unlink_on_destroy(0);
    Gnuplot::Builder::Process::MockTool::receive_from_builder *STDIN, *STDOUT, sub {
        my ($data) = @_;
        $tempfile->print($data);
    };
    $tempfile->close;
    _execute(@gnuplot_command, $tempfile->filename);
    _execute("gnuplot_builder_tempfile_remover", $tempfile->filename);
}

sub _execute {
    my (@command) = @_;
    my $pid = open3(my $in, _null_handle(), undef, @command);
    close $in;
    return $pid;
}

1;
__END__