Branch Coverage

blib/lib/Chart/Graph/Xmgrace.pm
Criterion Covered Total %
branch 99 218 45.4


line true false branch
139 2 1 unless (_set_xmgrace_paths())
145 0 1 if (ref $user_global_opts_ref ne 'HASH')
152 0 1 unless (@data_sets)
161 0 1 unless ($handle->open(">$command_file"))
174 1 19 if ($key eq 'title')
178 1 19 if ($key eq 'subtitle')
182 1 19 if ($key eq 'type of graph')
183 0 1 unless (&_is_available_option($key, $value, \%def_xmgrace_available_options))
190 0 1 if ($value =~ /graph/) { }
1 0 elsif ($value =~ /chart/) { }
197 1 19 if ($key eq 'stacked')
198 1 0 if ($value eq 'true' or $value eq 'false') { }
209 1 19 if ($key eq 'x-axis label')
213 1 19 if ($key eq 'y-axis label')
217 1 19 if ($key eq 'alt x-axis label')
218 0 1 if (defined $value)
225 1 19 if ($key eq 'alt y-axis label')
226 0 1 if (defined $value)
234 1 19 if ($key eq 'xrange')
235 0 1 if (defined $value)
236 0 0 if (ref $value ne 'ARRAY')
248 1 19 if ($key eq 'yrange')
249 0 1 if (defined $value)
250 0 0 if (ref $value ne 'ARRAY')
262 1 19 if ($key eq 'xtics')
263 0 1 if (defined $value)
271 1 19 if ($key eq 'ytics')
272 0 1 if (defined $value)
279 1 19 if ($key eq 'alt xtics')
280 0 1 if (defined $value)
288 1 19 if ($key eq 'alt ytics')
289 0 1 if (defined $value)
296 1 19 if ($key eq 'logscale x')
297 0 1 if (defined $value)
302 1 19 if ($key eq 'logscale y')
303 0 1 if (defined $value)
308 1 19 if ($key eq 'output type')
310 0 1 unless (&_check_output_type($output_type))
317 1 19 if ($key eq 'output file')
322 1 19 if ($key eq 'grace output file')
323 1 0 if (defined $value)
329 1 19 if ($key eq 'extra opts')
330 0 1 if (defined $value)
343 0 11 if (ref $data_set_ref ne 'ARRAY')
362 0 11 unless ($formatted_data)
374 0 11 if ($tog =~ /XY/) { }
11 0 elsif ($tog =~ /BAR/i) { }
391 0 11 unless ($data_options_ref)
406 0 11 if ($sp)
407 0 0 if ($sp eq 'XY') { }
0 0 elsif ($sp =~ /BAR/i) { }
423 0 1 if ($stdout)
442 0 11 unless (&_print_data_set($handle, $set_object))
449 1 0 unless $stdout
452 1 0 if (defined $$grace{'grace_output_file'})
486 1 0 if (exists $$avail_options_ref{$key})
488 1 2 if ($to_match =~ /$option/i)
528 1 0 if ($autoscale eq '') { }
0 0 elsif ($autoscale eq 'x') { }
0 0 elsif ($autoscale eq 'y') { }
529 1 0 unless $stdout
531 0 0 if ($Chart::Graph::debug)
538 0 0 unless $stdout
542 0 0 unless $stdout
546 0 0 unless $stdout
562 1 2 unless (defined $Chart::Graph::Xmgrace::xmgrace)
563 1 0 unless ($Chart::Graph::Xmgrace::xmgrace = _get_path('xmgrace'))
568 1 1 unless (defined $Chart::Graph::Xmgrace::xvfb)
569 1 0 unless ($Chart::Graph::Xmgrace::xvfb = _get_path('Xvfb'))
603 11 0 if ($data_format eq 'matrix') { }
0 0 elsif ($data_format eq 'columns') { }
0 0 elsif ($data_format eq 'file') { }
0 0 elsif ($data_format eq '') { }
637 0 11 if (ref $matrix_ref ne 'ARRAY')
646 0 99 if (ref $entry_ref ne 'ARRAY')
652 0 99 if (@{$entry_ref;} != 2)
681 0 0 if (ref $x_col ne 'ARRAY' or ref $y_col ne 'ARRAY')
682 0 0 unless ($x_col)
685 0 0 unless ($y_col)
695 0 0 if ($x_len != $y_len)
700 0 0 if ($x_len == 0)
704 0 0 if ($y_len == 0)
727 0 0 unless ($file_in)
732 0 0 unless (-f $file_in)
739 0 0 unless ($fh->open("<$file_in"))
755 0 0 if ($x_len != $y_len)
760 0 0 if ($x_len == 0)
764 0 0 if ($y_len == 0)
783 22 0 unless ($length)
803 0 1 if (not _chk_status($status))
819 0 1 if (not $file =~ /\.agr$/) { }
839 1 0 if ($user_type =~ /$known_type/i)
842 1 0 if ($seen)
864 0 1 if (-x "$application") { }
868 0 0 if ($rc != 0)
897 11 33 if ($key eq 'options') { }
901 0 11 if (defined $user_opts{'options'}) { }
913 22 11 if (defined $user_opts{$key}) { }
954 0 0 if (defined $user_opts{$key})
956 0 0 if (not ref $value) { }
1017 0 11 if (exists $$set_object{'options'}{'options'}{'hidden'})
1019 0 0 if ($$set_object{'options'}{'options'}->hidden eq 'true')
1128 0 0 if ($retval) { }
1163 0 0 if ($retval) { }
1193 0 0 if ($retval) { }
1225 0 0 if ($retval) { }
1253 0 0 if ($retval) { }
1280 0 0 if ($retval) { }
1309 0 0 if ($retval) { }