Branch Coverage

blib/lib/Gnuplot/Builder/Script.pm
Criterion Covered Total %
branch 67 80 83.7


line true false branch
18 18 1156 if (@set_args)
30 38 3 if (defined $key) { }
78 0 75 unless defined $name
90 0 11 unless defined $name
103 45 213 unless defined $raw_key
106 177 36 if ($prefix eq 'o') { }
36 0 elsif ($prefix eq 'd') { }
107 158 19 defined $value ? :
109 27 9 defined $value ? :
124 252 6 unless $statement =~ /\n$/
154 1 1010 unless (defined $parent)
159 0 1010 unless (&blessed($parent) and $parent->isa('Gnuplot::Builder::Script'))
182 70 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 12 144 if (defined $output_filename)
235 0 74 unless defined $dataset
236 19 55 if (ref $dataset ne 'ARRAY')
239 0 74 unless @$dataset
256 64 348 exists $hash_ref->{$_} ? :
282 0 29 unless defined $do
283 0 29 if ref $do ne 'CODE'
289 1 27 if ($$data_written_ref and not $$ended_with_newline_ref)
294 8 21 defined $args{'option'} && $args{'option'} ne '' ? :
305 2 1 if (@_ == 2)
309 0 3 unless defined $code
310 0 3 if ref $code ne 'CODE'
319 2 154 if (not defined $commands) { }
28 126 elsif (ref $commands ne 'ARRAY') { }
327 95 61 if not defined $_context_writer or &refaddr($_context_writer) != &refaddr($writer)
332 152 107 if (ref $command eq 'CODE') { }
337 104 3 unless $command =~ /\n$/
344 95 61 if (defined $got_writer) { }
61 0 elsif (defined $_context_writer) { }
361 104 208 exists $given_args_ref->{$key} ? :
374 3 258 if not $KNOWN_PLOTTING_OPTIONS{$arg_name}
392 0 236 unless defined $arg_name