Branch Coverage

blib/lib/Imager/Graph/Vertical.pm
Criterion Covered Total %
branch 154 222 69.3


line true false branch
199 0 12 unless ($self->_valid_input)
207 0 12 unless $self->_make_img
210 0 12 unless my $img = $self->_get_image
218 1 11 if ($$style{'title'}{'text'})
219 0 1 unless $self->_draw_title($img, \@chart_box)
224 0 12 unless $self->_get_data_range
235 10 2 if ($col_width > 1) { }
256 12 0 if ($self->_feature_enabled('graph_outline'))
257 0 12 unless my(@line) = $self->_get_line('graph.outline')
281 12 0 if ($value_range)
285 3 9 if ($min_value < 0)
287 0 3 unless my(@neg_fill) = $self->_get_fill('negative_bg', \@neg_box)
304 2 10 if ($self->_get_data_series->{'stacked_column'})
305 0 2 unless $self->_draw_stacked_columns
307 3 9 if ($self->_get_data_series->{'column'})
308 0 3 unless $self->_draw_columns
310 5 7 if ($self->_get_data_series->{'line'})
311 0 5 unless $self->_draw_lines
313 2 10 if ($self->_get_data_series->{'area'})
314 0 2 unless $self->_draw_area
317 2 10 if ($self->_get_y_tics)
320 12 0 if ($self->_get_labels(\%opts))
348 0 12 if (defined $config_max and $config_max < $max_value)
351 0 12 if (defined $config_min and $config_min > $min_value)
356 0 12 if (defined $config_min) { }
360 9 3 if ($min_value > 0)
363 0 12 if ($range_padding and $min_value < 0)
365 0 0 if ($min_value < -1 and $difference > -1)
371 0 12 if (defined $config_max) { }
375 0 12 if ($range_padding and $max_value > 0)
377 0 0 if ($max_value > 1 and $difference < 1)
385 0 12 if ($self->_get_number('automatic_axis'))
388 0 0 if ($@)
414 36 12 unless defined $value
415 12 0 if ($value < $min)
425 36 48 unless defined $value
426 24 24 if ($value > $min)
434 7 5 unless $series
444 5 0 if (scalar @data > $column_count)
449 2011 5 if ($value > $max_value)
450 10 2006 if ($value < $min_value)
460 10 2 unless $series
470 2 1 if (scalar @data > $column_count)
475 5 16 if ($value > $max_value)
476 12 9 if ($value < $min_value)
488 9 3 unless $series
500 6 29 if ($value > $max_value)
501 20 15 if ($value < $min_value)
515 10 2 unless $self->_get_data_series->{'stacked_column'}
526 18 3 if ($$data[$i] > 0) { }
3 0 elsif ($$data[$i] < 0) { }
536 6 15 if ($value > $max_value)
537 7 14 if ($value < $min_value)
539 2 1 if (scalar @$data > $column_count)
554 2 10 if (my $series = $self->_get_data_series->{'stacked_column'})
557 3 9 if (my $series = $self->_get_data_series->{'column'})
560 5 7 if (my $series = $self->_get_data_series->{'line'})
563 2 10 if (my $series = $self->_get_data_series->{'area'})
567 2 0 if ($$style{'features'}{'legend'} and scalar @labels)
568 0 2 unless $self->SUPER::_draw_legend($self->_get_image, \@labels, $chart_box)
599 0 5 defined $self->_get_data_series->{'column'} || $self->_get_data_series->{'stacked_column'} ? :
615 0 5 if ($has_columns) { }
636 0 2011 unless $img->line('x1', $x1, 'y1', $y1, 'x2', $x2, 'y2', $y2, 'aa', $line_aa, 'color', $color)
644 5 0 if ($self->_feature_enabled('linemarkers'))
663 0 3 if $opacity == 1
667 0 3 unless ($orig_fill)
733 3 15 if ($i == 0)
751 1 2 if ($self->_feature_enabled('areamarkers'))
791 2 1 if ($$style{'features'}{'outline'})
804 0 3 defined $self->_get_data_series->{'stacked_column'} ? :
814 0 35 if ($has_stacked_columns)
821 0 35 if ($x2 < $x1)
829 29 6 if ($data[$i] > 0) { }
832 22 7 if ($$style{'features'}{'outline'})
839 6 0 if ($$style{'features'}{'outline'})
872 0 2 if (my $column_series_data = $self->_get_data_series->{'column'})
878 0 2 if ($column_padding_percent < 0)
881 0 2 if ($column_padding_percent > 100)
887 1 1 if ($$style{'features'}{'outline'})
904 0 21 if ($x2 < $x1)
910 18 3 if ($data[$i] > 0) { }
913 11 7 if ($$style{'features'}{'outline'})
920 3 0 if ($$style{'features'}{'outline'})
1011 0 0 if @_ == 1
1080 0 0 unless @_ > 1
1102 0 0 unless @_ > 1
1119 1 0 if ($@)
1160 12 0 if (my $labels = $self->_get_labels($opts))
1161 5 7 if (my(@box) = $self->_text_bbox($$labels[0], 'legend'))
1170 5 7 if (my(@box) = $self->_text_bbox($$labels[-1], 'legend'))
1190 7 5 unless my(%text_info) = $self->_text_style('legend')
1197 3 12 if ($interval < 1 or $value != int $value)
1205 5 10 if ($width > $max_width)
1218 0 12 unless ($labels)
1224 7 5 unless my(%text_info) = $self->_text_style('legend')
1237 5 25 if ($height > $max_height)
1257 0 2 unless my(%text_info) = $self->_text_style('legend')
1270 3 12 if ($interval < 1 or $value != int $value)
1274 0 15 unless my(@box) = $self->_text_bbox($value, 'legend')
1288 8 2 if ($show_gridlines and $y1 != $$graph_box[1] and $y1 != $$graph_box[3])
1313 5 7 if ($has_columns)
1317 7 5 unless my(%text_info) = $self->_text_style('legend')
1323 0 5 if ($self->_get_number('automatic_axis'))
1326 0 0 if ($box[2] > $max_size)
1340 0 30 if $count % ($tic_skip + 1)
1344 0 30 if ($has_columns)
1355 0 30 unless my(@box) = $self->_text_bbox($label, 'legend')
1373 0 12 unless (defined $self->_get_data_series and keys %{$self->_get_data_series;})
1378 0 12 if (defined $$data{'line'} and not scalar @{$$data{'line'}[0]{'data'};})
1381 0 12 if (defined $$data{'column'} and not scalar @{$$data{'column'}[0]{'data'};})
1384 0 12 if (defined $$data{'stacked_column'} and not scalar @{$$data{'stacked_column'}[0]{'data'};})