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


line stmt bran cond sub pod time code
1             package Gnuplot::Builder;
2 4     4   62966 use strict;
  4         9  
  4         99  
3 4     4   20 use warnings;
  4         7  
  4         113  
4 4     4   2900 use parent qw(Exporter);
  4         1272  
  4         21  
5 4     4   3060 use Gnuplot::Builder::Script;
  4         13  
  4         122  
6 4     4   2645 use Gnuplot::Builder::Dataset;
  4         12  
  4         130  
7 4     4   25 use Gnuplot::Builder::Process;
  4         7  
  4         1160  
8              
9             our $VERSION = "0.30";
10              
11             our @EXPORT = our @EXPORT_OK = qw(gscript gfunc gfile gdata ghelp gwait);
12              
13             sub gscript {
14 7     7 1 1177 return Gnuplot::Builder::Script->new(@_);
15             }
16              
17             sub gfunc {
18 2     2 1 403 return Gnuplot::Builder::Dataset->new(@_);
19             }
20              
21             sub gfile {
22 2     2 1 401 return Gnuplot::Builder::Dataset->new_file(@_);
23             }
24              
25             sub gdata {
26 1     1 1 380 return Gnuplot::Builder::Dataset->new_data(@_);
27             }
28              
29             sub ghelp {
30 0     0 1 0 my (@help_args) = @_;
31             return Gnuplot::Builder::Process->with_new_process(do => sub {
32 0     0   0 my $writer = shift;
33 0         0 $writer->("help");
34 0         0 foreach my $arg (@help_args) {
35 0         0 $writer->(" $arg");
36             }
37 0         0 $writer->("\n");
38 0         0 });
39             }
40              
41             sub gwait {
42 1     1 1 443 return Gnuplot::Builder::Process->wait_all();
43             }
44              
45             1;
46             __END__