Branch Coverage

blib/lib/Chart/Graph/Gnuplot.pm
Criterion Covered Total %
branch 186 322 57.7


line true false branch
126 1 47 unless (_set_gnupaths())
132 0 47 if (ref $user_global_opts_ref ne 'HASH')
139 0 47 unless (@data_sets)
152 0 47 unless ($handle->open(">$command_file"))
159 2 45 if (my $value = $global_opts{'uts'})
160 2 0 if (defined $value and ref $value eq 'ARRAY') { }
161 0 2 if (@{$value;} < 2 or @{$value;} > 4)
174 0 47 if (my $value = $global_opts{'uts_normalize'})
175 0 0 if (defined $value and ref $value eq 'ARRAY') { }
176 0 0 if (@{$value;} < 2 or @{$value;} > 3)
191 4 184 if (defined $global_opts{$time_set})
197 2 45 if (my $value = $global_opts{'timefmt'})
198 2 0 if (defined $value)
207 47 1222 if ($key eq 'extra_opts')
208 4 43 if (defined $value)
209 1 3 if (ref $value eq 'ARRAY') { }
220 47 1222 if ($key eq 'title')
224 47 1222 if ($key eq 'x-axis label')
228 47 1222 if ($key eq 'y-axis label')
232 47 1222 if ($key eq 'x2-axis label')
233 4 43 if (defined $value)
238 47 1222 if ($key eq 'y2-axis label')
239 1 46 if (defined $value)
244 47 1222 if ($key eq 'logscale x')
245 0 47 if ($value == 1)
250 47 1222 if ($key eq 'logscale y')
251 3 44 if ($value == 1)
255 47 1222 if ($key eq 'logscale x2')
256 3 44 if ($value == 1)
261 47 1222 if ($key eq 'logscale y2')
262 1 46 if ($value == 1)
268 47 1222 if ($key eq 'xtics')
269 6 41 if (defined $value and ref $value eq 'ARRAY')
274 47 1222 if ($key eq 'ytics')
275 5 42 if (defined $value and ref $value eq 'ARRAY')
280 47 1222 if ($key eq 'x2tics')
281 2 45 if (defined $value)
282 2 0 if (ref $value eq 'ARRAY')
285 0 2 if ($value eq 'on')
290 47 1222 if ($key eq 'y2tics')
291 2 45 if (defined $value)
292 2 0 if (ref $value eq 'ARRAY')
295 0 2 if ($value eq 'on')
300 94 1175 if ($key eq 'xrange' or $key eq 'yrange')
301 7 87 if (defined $value)
302 2 5 if (ref $value eq 'ARRAY') { }
313 47 1222 if ($key eq 'format')
314 2 45 if (defined $value)
315 2 0 if (ref $value eq 'ARRAY') { }
325 47 1222 if ($key eq 'timefmt')
328 47 1222 if ($key eq 'xdata')
331 47 1222 if ($key eq 'ydata')
334 47 1222 if ($key eq 'x2data')
337 47 1222 if ($key eq 'y2data')
340 47 1222 if ($key eq 'uts')
343 47 1222 if ($key eq 'uts_normalize')
346 1 1268 if ($key eq 'size' and defined $value)
347 1 0 if (ref $value eq 'ARRAY' and @{$value;} == 2) { }
356 47 1222 if ($key eq 'output file')
360 47 1222 if ($key eq 'output type')
361 0 47 unless ($value =~ /^(pbm|gif|tgif|png|svg|eps(:? .*)?)$/)
372 2 45 if ($output_type =~ /^eps( .*)?$/) { }
1 44 elsif ($output_type eq 'pbm') { }
5 39 elsif ($output_type eq 'gif') { }
38 1 elsif ($output_type eq 'png') { }
1 0 elsif ($output_type eq 'tgif') { }
0 0 elsif ($output_type eq 'svg') { }
374 0 2 if (defined $output_file)
381 0 1 if (defined $output_file)
392 1 37 if (defined $output_file)
398 0 1 if (defined $output_file)
404 0 0 if (defined $output_file)
417 0 59 if (ref $data_set_ref ne 'ARRAY')
424 0 59 unless (_gnuplot_data_set($handle, @{$data_set_ref;}))
431 12 47 if (@data_sets)
439 47 0 unless (_exec_gnuplot($command_file))
444 0 0 if ($output_type eq 'gif') { }
0 0 elsif (defined $output_file and $output_type =~ /^(pbm|eps(?: .*)?|png|tgif)$/) { }
445 0 0 unless (_exec_pbmtogif($plot_file, $output_file))
451 0 0 if ($^O eq 'freebsd')
461 0 0 unless (_chk_status($status))
462 0 0 if ($Chart::Graph::debug)
498 0 59 if (ref $user_data_opts_ref ne 'HASH')
509 59 236 if ($key eq 'using')
513 59 236 if ($key eq 'title')
517 59 236 if ($key eq 'style')
521 59 236 if ($key eq 'axes')
525 59 236 if ($key eq 'type')
530 1 58 if ($type eq 'function') { }
543 46 12 if ($type eq 'matrix') { }
9 3 elsif ($type eq 'columns') { }
3 0 elsif ($type eq 'file') { }
0 0 elsif ($type eq '') { }
569 1 47 unless (defined $Chart::Graph::Gnuplot::gnuplot)
570 1 0 unless ($Chart::Graph::Gnuplot::gnuplot = _get_path('gnuplot'))
575 0 47 unless (defined $Chart::Graph::Gnuplot::ppmtogif)
576 0 0 unless ($Chart::Graph::Gnuplot::ppmtogif = _get_path('ppmtogif'))
600 0 15 unless (@tics)
608 127 27 if (ref $tic eq 'ARRAY') { }
610 0 127 if ($#{$tic;} != 1)
641 0 46 if (ref $matrix_ref ne 'ARRAY')
652 0 144 if (ref $entry_ref ne 'ARRAY')
661 0 144 if (@{$entry_ref;} == 0) { }
696 0 30 unless (ref $dataset eq 'ARRAY')
701 0 30 if ($#{$dataset;} != $#{$columns[$[];})
707 0 9 if ($#{$columns[$[];} == 0)
736 0 3 unless ($file_in)
741 0 3 unless (-f $file_in)
748 0 3 unless (_chk_status($status))
766 47 0 unless (_chk_status($status))
783 0 0 if ($gif_file)
786 0 0 unless ($Chart::Graph::debug)
791 0 0 unless (_chk_status($status))
817 2 0 unless (defined $samp_scale)
821 0 2 if ($interval < 10) { }
0 2 elsif ($interval < 30) { }
0 2 elsif ($interval < $min_len) { }
0 2 elsif ($interval < 3 * $min_len) { }
0 2 elsif ($interval < 10 * $min_len) { }
0 2 elsif ($interval < $hour_len) { }
0 2 elsif ($interval < 2 * $hour_len) { }
1 1 elsif ($interval < 3 * $hour_len) { }
0 1 elsif ($interval < 4 * $hour_len) { }
0 1 elsif ($interval < 5 * $hour_len) { }
0 1 elsif ($interval < 12 * $hour_len) { }
0 1 elsif ($interval < $day_len) { }
0 1 elsif ($interval < 2 * $day_len) { }
0 1 elsif ($interval < 5 * $day_len) { }
0 1 elsif ($interval < 7 * $day_len) { }
0 1 elsif ($interval < 15 * $day_len) { }
0 1 elsif ($interval < 30 * $day_len) { }
0 1 elsif ($interval < 365 * $day_len) { }
0 1 elsif ($interval < 730 * $day_len) { }
869 0 108 if ($use_local_tz) { }
879 108 0 if ($min_samp >= $min_len and not $Chart::Graph::Gnuplot::show_seconds) { }
884 99 9 if ($bucket_str =~ /^00:00(:00)?$/ or $curr_min == $start_min + 1)
886 0 99 if ($Chart::Graph::Gnuplot::show_year)
897 1 1 if (defined $$global_options{'xtics'})
918 0 0 unless (defined $samp_scale)
922 0 0 if ($interval < 10) { }
0 0 elsif ($interval < 30) { }
0 0 elsif ($interval < $min_len) { }
0 0 elsif ($interval < 3 * $min_len) { }
0 0 elsif ($interval < 10 * $min_len) { }
0 0 elsif ($interval < $hour_len) { }
0 0 elsif ($interval < 2 * $hour_len) { }
0 0 elsif ($interval < 3 * $hour_len) { }
0 0 elsif ($interval < 4 * $hour_len) { }
0 0 elsif ($interval < 5 * $hour_len) { }
0 0 elsif ($interval < 12 * $hour_len) { }
0 0 elsif ($interval < $day_len) { }
0 0 elsif ($interval < 2 * $day_len) { }
0 0 elsif ($interval < 5 * $day_len) { }
0 0 elsif ($interval < 7 * $day_len) { }
0 0 elsif ($interval < 15 * $day_len) { }
0 0 elsif ($interval < 30 * $day_len) { }
970 0 0 if ($min_samp >= $min_len) { }
976 0 0 if ($bucket_str =~ /^00:00(:00)?$/)
980 0 0 if ($curr_min == $start_min + 1 and not $first_date_shown)
983 0 0 if ($show_date)
993 0 0 if (defined $$global_options{'xtics'})