Branch Coverage

blib/lib/Tk/Chart.pm
Criterion Covered Total %
branch 0 186 0.0


line true false branch
288 0 0 if (defined $data and not _isainteger($data))
295 0 0 if (defined $xvaluesregex and ref $xvaluesregex ne 'Regexp')
304 0 0 if (defined $gradient and ref $gradient ne 'HASH')
311 0 0 if (defined $colors and ref $colors ne 'ARRAY')
319 0 0 if (defined $markers and ref $markers ne 'ARRAY')
326 0 0 if (defined $type_mixed and ref $type_mixed ne 'ARRAY')
335 0 0 if (my $xtickheight = $cw->cget(-'xtickheight'))
340 0 0 if (my $smoothline = $cw->cget(-'smoothline'))
344 0 0 if (my $xvaluespace = $cw->cget(-'xvaluespace'))
348 0 0 if (my $noaxis = $cw->cget(-'noaxis') and $cw->cget(-'noaxis') == 1)
355 0 0 if (my $title = $cw->cget(-'title')) { }
356 0 0 if (my $titleheight = $cw->cget(-'titleheight'))
364 0 0 if (my $xlabel = $cw->cget(-'xlabel')) { }
365 0 0 if (my $xlabelheight = $cw->cget(-'xlabelheight'))
373 0 0 if (my $ylabel = $cw->cget(-'ylabel')) { }
374 0 0 if (my $ylabel_width = $cw->cget(-'ylabelWidth'))
382 0 0 if (my $ytickwidth = $cw->cget(-'ytickwidth'))
386 0 0 if (my $valuescolor = $cw->cget(-'valuescolor'))
391 0 0 if (my $textcolor = $cw->cget(-'textcolor')) { }
0 0 elsif (my $labelscolor = $cw->cget(-'labelscolor')) { }
401 0 0 if (my $textfont = $cw->cget(-'textfont'))
406 0 0 if (my $startangle = $cw->cget(-'startangle'))
407 0 0 if ($startangle < $MIN_ANGLE or $startangle > $MAX_ANGLE)
418 0 0 if (my $borderwidth = $cw->cget(-'borderwidth'))
425 0 0 if (defined $yminvalue and not _isanumber($yminvalue))
430 0 0 if (defined $ymaxvalue and not _isanumber($ymaxvalue))
435 0 0 if (defined $yminvalue and defined $ymaxvalue)
436 0 0 if ($ymaxvalue <= $yminvalue)
449 0 0 unless (defined $ref_legend)
457 0 0 if ($size_legend != $size_data)
468 0 0 unless (defined $zoomx and _isanumber($zoomx) and $zoomx > 0 or defined $zoomy and _isanumber($zoomy) and $zoomy > 0)
484 0 0 if (defined $zoomx)
485 0 0 if (defined $zoomy)
486 0 0 if (defined $zoomx)
487 0 0 if (defined $zoomy)
496 0 0 if ($cw->{'RefChart'}{'Balloon'}{'Obj'} and $cw->Tk::Exists->{'RefChart'}{'Balloon'}{'Obj'})
511 0 0 if (defined $croak and $croak == 1) { }
515 0 0 if defined $verbose and $verbose == 1
538 0 0 unless ($marker_type{$number})
561 0 0 if ($ref_coord{'type'} eq 'circle' or $ref_coord{'type'} eq 'square') { }
0 0 elsif ($ref_coord{'type'} eq 'horizontal cross') { }
0 0 elsif ($ref_coord{'type'} eq 'diagonal cross') { }
0 0 elsif ($ref_coord{'type'} eq 'diamond') { }
0 0 elsif ($ref_coord{'type'} eq 'vertical line') { }
0 0 elsif ($ref_coord{'type'} eq 'horizontal line') { }
567 0 0 if ($ref_coord{'type'} eq 'circle') { }
648 0 0 unless (defined $ref_data_to_display and defined $ref_data_to_display->[$line_number])
653 0 0 if (defined $font)
654 0 0 if (defined $color)
660 0 0 if (defined $value)
670 0 0 unless defined $ref_points->[$indice_point]
683 0 0 if ($cw->cget(-'boxaxis') == 0)
740 0 0 if (defined $longticks and $longticks == 1 or defined $xlongticks and $xlongticks == 1)
783 0 0 if (defined $longticks and $longticks == 1 or defined $ylongticks and $ylongticks == 1)
828 0 0 if $value == 0
850 0 0 unless ($cw->{'RefChart'}{'Data'}{'MinYValue'} == 0 or defined $yminvalue and $yminvalue > 0 or $cw->{'RefChart'}{'Data'}{'MinYValue'} > 0)
885 0 0 if (not defined $longticks or $longticks != 1)
910 0 0 unless ($title)
930 0 0 if ($titleposition eq 'left') { }
0 0 elsif ($titleposition eq 'right') { }
951 0 0 if ($anchor eq 'left' and $anchor eq 'right')
960 0 0 if ($cw->{'RefChart'}{'Title'}{'Ctitrey'} < $cw->{'RefChart'}{'Canvas'}{'HeightEmptySpace'})
996 0 0 unless (defined $xlabel)
1029 0 0 if ($cw->{'RefChart'}{'Axis'}{'Xaxis'}{'CxlabelY'} < $before_xlabel_y)
1063 0 0 unless (defined $ylabel)
1099 0 0 if (defined $cumulatepercent and $cumulatepercent == 1)
1111 0 0 if (defined $yminvalue and defined $ymaxvalue)
1112 0 0 unless ($ymaxvalue >= $cw->{'RefChart'}{'Data'}{'MaxYValue'} and $yminvalue <= $cw->{'RefChart'}{'Data'}{'MinYValue'} or defined $interval and $interval == 1)
1124 0 0 if (defined $cumulate and $cumulate == 1 and $cw->{'RefChart'}{'Data'}{'MinYValue'} > 0)
1128 0 0 unless (defined $interval and $interval == 1)
1129 0 0 if ($cw->{'RefChart'}{'Data'}{'MinYValue'} > 0)
1136 0 0 if (defined $yminvalue and $yminvalue != 0)
1139 0 0 if (defined $ymaxvalue and $ymaxvalue != 0)
1150 0 0 unless (defined $cw->{'RefChart'}{'Data'}{'PlotDefined'})
1165 0 0 if ($cw->class eq 'Pie')
1171 0 0 if ($cw->{'RefChart'}{'Data'}{'RefAllData'})
1185 0 0 if ($cw->class eq 'Lines') { }
1186 0 0 if ($cw->cget(-'pointline') == 1) { }
1198 0 0 if ($cw->cget(-'noaxis') != 1)
1203 0 0 if ($cw->{'RefChart'}{'Legend'}{'NbrLegend'} > 0)
1209 0 0 if ($cw->{'RefChart'}{'Data'}{'MaxYValue'} < 0)
1215 0 0 if ($cw->cget(-'noaxis') == 1)
1220 0 0 if ($cw->cget(-'zeroaxisonly') == 1 and $cw->{'RefChart'}{'Data'}{'MaxYValue'} > 0 and $cw->{'RefChart'}{'Data'}{'MinYValue'} < 0)
1226 0 0 if ($cw->cget(-'zeroaxis') == 1)
1231 0 0 if ($cw->cget(-'xvalueview') == 0)
1234 0 0 if ($cw->cget(-'yvalueview') == 0)
1240 0 0 if (defined $alltickview) { }
1241 0 0 if ($alltickview == 0) { }
1250 0 0 if ($cw->cget(-'xtickview') == 0)
1253 0 0 if ($cw->cget(-'ytickview') == 0)
1259 0 0 if ($cw->{'RefChart'}{'Legend'}{'box'} == 0)
1263 0 0 if ($cw->class eq 'Mixed')
1274 0 0 if (defined $showvalues and $showvalues == 1)