File Coverage

blib/lib/Gnuplot/Builder.pm

Criterion	Covered	Total	%
statement	23	30	76.6
branch			n/a
condition			n/a
subroutine	11	13	84.6
pod	6	6	100.0
total	40	49	81.6

package Gnuplot::Builder;
use strict;
use warnings;
use parent qw(Exporter);
use Gnuplot::Builder::Script;
use Gnuplot::Builder::Dataset;
use Gnuplot::Builder::Process;

our $VERSION = "0.31";

our @EXPORT = our @EXPORT_OK = qw(gscript gfunc gfile gdata ghelp gwait);

sub gscript {
    return Gnuplot::Builder::Script->new(@_);
}

sub gfunc {
    return Gnuplot::Builder::Dataset->new(@_);
}

sub gfile {
    return Gnuplot::Builder::Dataset->new_file(@_);
}

sub gdata {
    return Gnuplot::Builder::Dataset->new_data(@_);
}

sub ghelp {
    my (@help_args) = @_;
    return Gnuplot::Builder::Process->with_new_process(do => sub {
        my $writer = shift;
        $writer->("help");
        foreach my $arg (@help_args) {
            $writer->(" $arg");
        }
        $writer->("\n");
    });
}

sub gwait {
    return Gnuplot::Builder::Process->wait_all();
}

1;
__END__