Branch Coverage

blib/lib/Text/Flowchart.pm
Criterion Covered Total %
branch 138 234 58.9


line true false branch
24 5 193 if @_
38 1 0 $init{'width'} ? :
0 1 $init{'height'} ? :
57 0 5 unless $box
72 0 5 if ($init{'orientation'} eq 'V') { }
4 1 elsif ($init{'orientation'} =~ /^(T|B)C$/) { }
1 0 elsif ($init{'orientation'} eq 'H') { }
83 0 5 unless $line
96 1 11 if (@_)
98 0 1 unless $_grid
127 0 1 if ($grid->debug)
136 0 24 if $grid->debug
137 24 0 if (length $grid->grid->[$_] == $grid->width) { }
152 0 5 if ($from->parent ne $self)
153 0 5 if ($to->parent ne $self)
154 0 5 unless ($from_side =~ /^(top|bottom|right|left)$/)
155 0 5 unless ($to_side =~ /^(top|bottom|right|left)$/)
156 0 5 if ($from_side eq $to_side)
157 0 5 if (length $init{'reason'} > 1)
205 0 1 unless $width =~ /^-?\d*$/ and $height =~ /^-?\d*$/
207 1 0 $width > 0 ? :
208 0 1 $height >= 0 ? :
209 0 1 length $pad == 1 ? :
226 0 10 unless defined $box
227 0 10 if ($x < 0 || $x + length($box->render->[0]) > $self->width and $self->width != 0)
228 0 10 if ($y < 0 || $y + @{$box->render;} > $self->height and $self->height != 0)
231 24 42 unless $$self[$grid][$y]
266 215 775 if @_
289 2 8 $init{'width'} > 0 ? :
290 0 10 $init{'height'} > 0 ? :
291 10 0 $init{'x_coord'} >= 0 ? :
292 10 0 $init{'y_coord'} >= 0 ? :
335 0 5 if ($from->parent ne $to->parent)
336 0 5 unless ($from_side =~ /^(top|bottom|right|left)$/)
337 0 5 unless ($to_side =~ /^(top|bottom|right|left)$/)
338 0 5 if ($from_side eq $to_side)
339 0 5 if (length $reason > 1)
347 1 4 if ($from_side =~ /^(lef|righ)t$/ and $to_side =~ /^(lef|righ)t$/) { }
0 4 elsif ($from_side =~ /^(top|bottom)$/ and $to_side =~ /^(top|bottom)$/) { }
0 4 elsif ($from_side eq 'top' and $to_side =~ /^(lef|righ)t$/) { }
1 3 elsif ($from_side eq 'bottom' and $to_side =~ /^(lef|righ)t$/) { }
1 2 elsif ($from_side =~ /^(lef|righ)t$/ and $to_side eq 'bottom') { }
2 0 elsif ($from_side =~ /^(lef|righ)t$/ and $to_side eq 'top') { }
373 0 10 if scalar $$self[$side_num] <= 0
376 2 8 if ($side eq 'top') { }
2 6 elsif ($side eq 'bottom') { }
3 3 elsif ($side eq 'left') { }
3 0 elsif ($side eq 'right') { }
399 1 9 if ($offset == 0) { }
0 9 elsif ($offset == -1) { }
404 9 28 if ($$side[$i] == $offset)
411 0 9 unless ($found)
424 0 5 defined $init{'x_pad'} && $init{'x_pad'} >= 0 ? :
425 1 4 defined $init{'y_pad'} && $init{'y_pad'} >= 0 ? :
426 0 5 defined $init{'format_char'} ? :
429 0 5 if $self->width - 2 - $self->x_pad * 2 < 1 and $self->width > 0
430 0 5 if $self->height - 2 - $self->y_pad * 2 < 1 and $self->height > 0
456 15 5 if $self->rendered
466 5 0 $width < $page_width || $page_width == 0 ? :
467 5 0 $height < $page_height || $page_height == 0 ? :
474 5 0 unless $box_width == 0
477 11 0 if (length $_ + 2 * $x_pad < $wrap_width)
484 0 5 unless $box_height == 0
487 4 0 $box_width ? :
488 4 0 $box_width ? :
494 0 0 $box_width ? :
497 5 0 $box_width ? :
498 5 0 $box_width ? :
500 5 0 $box_width ? :
550 0 5 if ($class eq 'Text::Flowchart::Shape::Line') { }
551 0 0 if ($class eq 'Text::Flowchart::Shape::Line::Horizontal') { }
0 0 elsif ($class eq 'Text::Flowchart::Shape::Line::Vertical') { }
0 0 elsif ($class eq 'Text::Flowchart::Shape::Line::Corner') { }
566 5 0 if (ref $init{'from'} eq 'ARRAY' and @{$init{'from'};} == 2) { }
573 5 0 if (ref $init{'to'} eq 'ARRAY' and @{$init{'from'};} == 2) { }
593 0 5 unless ($self->width == 1 or $self->width > 2)
605 3 2 $self->offset ? :
606 3 2 $self->offset ? :
627 4 6 if ($direction =~ /V/) { }
6 0 elsif ($direction =~ /H/) { }
628 2 2 if ($self->reason)
629 0 2 if ($self->yfrom < $self->yto and $direction eq 'VT' or $self->yfrom > $self->yto and $direction eq 'VB')
634 3 1 if ($self->yfrom < $self->yto) { }
638 2 4 if ($self->reason)
639 2 0 if ($self->xfrom < $self->xto and $direction eq 'HL' or $self->xfrom > $self->xto and $direction eq 'HR')
644 4 0 if ($self->xfrom < $self->xto) { }
653 0 16 unless $self->parent->directed
658 16 0 if ($self->xdistance >= 0 and $self->ydistance >= 0) { }
660 4 2 $self->offset ? :
4 2 $self->offset ? :
6 10 if ($arg == 1) { }
6 4 elsif ($arg == 2) { }
678 3 1 if $self->rendered
683 1 0 if ($self->xdistance >= 0 and $self->ydistance >= 0) { }
0 0 elsif ($self->xdistance > 0) { }
684 1 0 $self->offset ? :
690 1 0 $self->offset ? :
698 0 1 $self->xfrom > $self->xto ? :
699 0 1 $self->yfrom > $self->yto ? :
713 0 0 if $self->rendered
717 0 0 if ($self->xdistance >= 0 and $self->ydistance >= 0) { }
0 0 elsif ($self->ydistance > 0) { }
718 0 0 $self->offset ? :
721 0 0 $self->offset ? :
728 0 0 $self->offset ? :
731 0 0 $self->offset ? :
744 0 0 $self->xfrom > $self->xto ? :
745 0 0 $self->yfrom > $self->yto ? :
759 12 4 if $self->rendered
764 2 2 if ($self->orientation eq 'BC') { }
2 0 elsif ($self->orientation eq 'TC') { }
767 7 2 $self->offset ? :
770 1 1 $self->offset ? :
776 13 5 $self->offset ? :
779 1 1 $self->offset ? :
784 1 3 $self->xfrom > $self->xto ? :
785 1 3 $self->yfrom > $self->yto ? :