Branch Coverage

blib/lib/Gnuplot/Builder/Script.pm
Criterion Covered Total %
branch 59 72 81.9


line true false branch
18 16 1147 if (@set_args)
30 38 3 if (defined $key) { }
78 0 75 unless defined $name
90 0 11 unless defined $name
103 45 205 unless defined $raw_key
106 169 36 if ($prefix eq 'o') { }
36 0 elsif ($prefix eq 'd') { }
107 150 19 defined $value ? :
109 27 9 defined $value ? :
124 244 6 unless $statement =~ /\n$/
154 1 1008 unless (defined $parent)
159 0 1008 unless (&blessed($parent) and $parent->isa('Gnuplot::Builder::Script'))
182 65 19 if (not $ref) { }
185 0 19 unless ($dataset->can('params_string') and $dataset->can('write_data_to'))
201 33 2 if defined $_
202 7 30 unless @nonempty_data
217 8 11 unless $$data_written_ref
218 5 6 unless $$ended_with_newline_ref
225 8 139 if (defined $output_filename)
235 0 69 unless defined $dataset
236 16 53 if (ref $dataset ne 'ARRAY')
239 0 69 unless @$dataset
280 0 27 unless defined $do
281 0 27 if ref $do ne 'CODE'
287 1 25 if ($$data_written_ref and not $$ended_with_newline_ref)
292 7 20 defined $args{'option'} && $args{'option'} ne '' ? :
306 2 0 if (@_ == 2)
310 0 2 unless defined $code
311 0 2 if ref $code ne 'CODE'
320 2 145 if (not defined $commands) { }
27 118 elsif (ref $commands ne 'ARRAY') { }
328 86 61 if not defined $_context_writer or &refaddr($_context_writer) != &refaddr($writer)
333 144 95 if (ref $command eq 'CODE') { }
338 92 3 unless $command =~ /\n$/
344 86 61 if (defined $args{'writer'}) { }
61 0 elsif (defined $_context_writer) { }