Branch Coverage

lib/Graph/Easy/As_svg.pm
Criterion Covered Total %
branch 294 458 64.1


line true false branch
122 104 404 unless defined $x
134 74 114 wantarray ? :
282 0 79 if $ts->{'italic'}
283 12 67 if $ts->{'bold'}
285 0 67 if ($ts->{'underline'} or $ts->{'none'} or $ts->{'overline'} or $ts->{'line-through'})
291 23 25 if $ts->{$k}
294 12 0 if $s
302 79 0 if $ff
307 62 17 if $fs eq '16'
312 17 62 if $fs
314 79 0 if @styles > 0
341 1 80 if (@$lines > 1) { }
355 2 0 if $all eq substr($align, 0, 1)
357 0 2 if $all eq 'l'
358 0 2 if $all eq 'r'
359 1 1 if $i < @$lines - 1
368 79 1 if @$lines
371 79 2 if $label ne ''
372 2 79 unless defined $fs
376 15 66 if ref($self) =~ /Edge/
378 66 15 unless (defined $style)
380 3 63 if $align eq 'left'
381 0 66 if $align eq 'right'
398 0 0 if $val eq 'center'
410 0 0 if $val =~ /^\d+\z/
412 0 0 if ($val =~ /em\z/)
432 0 128 if ($s =~ /(\d+)em/)
439 128 0 if $s eq '1'
441 52 76 unless exists $att->{'stroke-dasharray'}
444 76 0 if $s < 2
463 26 3 unless defined $self->{'score'}
469 1 28 if ($options->{'standalone'})
498 29 0 if $title ne ''
567 29 0 if $style ne ''
583 9 20 if ($label ne '')
588 0 9 if ($mx < $lw + $em)
606 29 0 if $bg eq 'inherit'
608 29 0 if $bs eq 'none'
625 29 0 unless $att->{'stroke-dasharray'} ne ''
632 29 0 if ($bs ne '')
655 9 20 if ($label ne '')
657 0 9 if $lp eq 'bottom'
669 0 9 if $link ne ''
674 9 0 if $lp eq 'top'
682 57 33 if (ref $n eq 'Graph::Easy::Node' or ref $n eq 'Graph::Easy::Node::Anon')
692 89 1 if ($obj_txt ne '')
696 88 1 if $id eq ''
715 1 28 if $options->{'standalone'}
757 3 52 if $self->{'has_label'}
776 0 58 if $bg eq ''
779 58 0 if ($bg ne '')
781 58 0 if $bg eq 'inherit'
782 0 58 if $bg eq 'inherit'
783 58 0 if ($bg ne '')
811 0 67 if $class =~ /^(\s+|gi)\z/
870 0 37 if $cell->{'type'} == 11
879 0 30 if $done_cells == 0
926 132 2 if $line_length > $w
939 37 17 if (ref $self->{'edge'})
942 0 37 if $bg eq '' and ref $self->{'edge'}{'group'}
947 8 46 if ($bg ne 'inherit' and $bg ne '')
970 54 6 unless defined $name
971 1 59 if $self->{'class'} eq 'node.anon'
982 1 59 if $shape eq 'invisible'
986 1 58 if $title ne ''
989 56 3 unless $self->isa_cell
992 0 59 if $link ne ''
999 20 39 if $s ne 'rect'
1007 2 57 if ($shape eq 'point') { }
0 57 elsif ($shape eq 'img') { }
1012 2 0 if ($s ne 'invisible') { }
1014 1 1 if $bs =~ /^double/ and $s =~ /^(square|diamond|circle|star)\z/
1027 0 2 if ($s eq 'dot' or $ps eq 'filled')
1035 0 2 if $s =~ /square/
1036 0 2 if $s =~ /square/
1052 0 0 if ($info->{'error'})
1066 54 3 if ($shape ne 'none' and not $self->isa('Graph::Easy::Group::Cell'))
1073 0 54 if ($bs =~ /^double/)
1077 0 0 if exists $att->{$a}
1086 0 54 if ($bs =~ /^double/)
1118 0 57 if $s =~ /^(triangle|trapezium)\z/
1119 0 57 if $s =~ /^inv(triangle|trapezium)\z/
1120 0 57 if $s eq 'house'
1121 0 57 if $s eq 'invhouse'
1131 0 59 if $link ne ''
1144 0 1 if $title ne ''
1181 1 59 if ($self->attribute('border-style') || '') eq 'double'
1191 2 58 if ($shape =~ /^(point|none)\z/) { }
1 57 elsif ($shape eq 'circle') { }
0 57 elsif ($shape eq 'parallelogram') { }
0 57 elsif ($shape eq 'trapezium') { }
0 57 elsif ($shape eq 'invtrapezium') { }
1 56 elsif ($shape eq 'diamond') { }
0 56 elsif ($shape eq 'house') { }
0 56 elsif ($shape eq 'pentagon') { }
0 56 elsif ($shape eq 'invhouse') { }
0 56 elsif ($shape eq 'septagon') { }
0 56 elsif ($shape eq 'octagon') { }
0 56 elsif ($shape eq 'hexagon') { }
0 56 elsif ($shape eq 'triangle') { }
0 56 elsif ($shape eq 'invtriangle') { }
0 56 elsif ($shape eq 'ellipse') { }
1198 0 1 $self->{'minw'} > $self->{'minh'} ? :
1340 13 43 if ($shape eq 'rounded')
1357 1 59 if $border_width ne '1'
1360 4 56 unless ($border_style =~ /^(none|solid)/)
1363 3 1 if exists $strokes->{$border_style}
1367 1 59 if ($border_style eq 'none')
1391 93 606 if $e =~ /^(arrow-?style|arrow-?shape|text-?style|label-?color| rows|columns|size|offset|origin|rotate|colorscheme)\z/x
1396 40 566 if (length $att_line > 75)
1407 6 207 if $r != 0
1408 3 210 if (length $att_line > 75)
1425 4 108 if defined $self->{'w'}
1428 2 106 if ($shape eq 'point')
1443 106 0 if $shape ne 'none'
1445 105 1 if ($border ne 'none')
1453 0 106 if $shape =~ /triangle/
1454 0 106 if $shape =~ /triangle|trapezium/
1455 0 106 if $shape =~ /(parallelogram|trapezium|pentagon)/
1457 2 104 if ($shape =~ /^(diamond|circle|octagon|hexagon|triangle)\z/)
1460 1 1 if $self->{'h'} > $max
1575 0 33 if (exists $arrow_pos->{$cell_type})
1580 0 0 if $dx < 0
1581 0 0 if $dy < 0
1599 0 33 if $arrow_style eq 'none'
1603 32 1 if $class eq 'aho'
1605 0 33 if $s > 1 and $class eq 'ah'
1616 45 30 if $key =~ /^(stroke-dasharray|arrow-style|stroke-width)\z/
1618 30 0 unless exists $DEF->{$key} and $DEF->{$key} eq $att->{$key}
1620 0 33 if ($arrow_style eq 'closed') { }
1 32 elsif ($arrow_style eq 'filled') { }
0 32 elsif ($class eq 'ahb') { }
1623 0 0 if $a->{'fill'} eq 'inherit'
1624 0 0 if $a->{'fill'} eq 'inherit'
1630 0 1 if (defined $fill) { }
1641 0 0 unless $a->{'fill'}
1646 30 3 if ref $self->{'graph'}
1653 0 33 if $ss > 1
1660 1 32 if ($type & 32)
1662 0 1 if $ss > 1
1 0 if $d < 1
1666 3 30 if ($type & 128)
1668 0 3 if $ss > 1
3 0 if $d < 1
1673 0 33 if ($type & 16)
1675 0 0 if $ss > 1
0 0 if $d < 1
1680 29 4 if ($type & 64)
1682 0 29 if $ss > 1
29 0 if $d < 1
1686 0 29 if $scale
1706 41 0 unless defined $add
1713 34 7 if ($ltype == 0) { }
1715 29 5 if $s
1716 28 6 if $e
1718 0 34 if $l == 0.5
1719 1 33 if $r == 0.5
1720 5 29 if $l < 1
1721 5 29 if $r < 1
1725 15 19 if (($type & 16) != 0)
1729 15 0 if $s
15 0 if $e
1735 1 6 if $s
1736 2 5 if $e
1738 1 6 if $l == 0.5
1739 0 7 if $r == 0.5
1740 5 2 if $l < 1
1741 5 2 if $r < 1
1745 0 7 if (($type & 16) != 0)
1749 0 0 if $s
0 0 if $e
1759 15 26 if defined $x3
1778 0 0 unless defined $add
1786 0 0 if $xa < 0
1787 0 0 if $ya < 0
1804 2 35 if defined $self->{'w'}
1818 28 7 if ($self->{'type'} & 4096)
1823 2 26 if $type == 2
1825 26 2 if $type == 1
1830 26 2 if $type == 1
1848 56 224 if ($a != 0)
1855 0 56 if $style =~ /^wide/
1882 15 22 if ($style ne 'solid')
1885 15 0 if exists $strokes->{$style}
1888 0 37 if $style =~ /^bold/
1889 0 37 if $style =~ /^broad/
1890 0 37 if $style =~ /^wide/
1914 0 37 if $title ne ''
1929 0 37 if $style eq 'invisible'
1945 38 0 if ($type != 2) { }
1959 0 38 if ($cross and $type == 1)
1963 0 0 if $style =~ /^bold/
1964 0 0 if $style =~ /^broad/
1965 0 0 if $style =~ /^wide/
1968 0 0 if $self->{'color_ver'}
1970 0 0 if $sn ne $sw
1980 5 33 if ($type == 1) { }
1982 2 3 if $end & 128
1983 0 5 if $end & 32
1984 0 5 if $start & 512
1985 1 4 if $start & 2048
1989 28 5 if $end & 64
1990 0 33 if $end & 16
1991 0 33 if $start & 256
1992 29 4 if $start & 1024
1995 38 0 if ($type != 2) { }
1997 15 23 if $style =~ /^double/
2012 16 21 if (@line_tags > 1) { }
2031 30 7 unless $arrow == 0 or $self->{'edge'}->undirected
2036 30 7 if ($self->{'type'} & 4096)
2038 0 30 unless defined $label
2040 15 15 if ($label ne '')
2053 14 1 if ($type == 1) { }
1 0 elsif ($type == 2) { }
2062 14 0 if ($ac == 1)
2065 0 14 if $style =~ /^broad/
2066 0 14 if $style =~ /^wide/
2068 14 0 if ($end & 64) != 0
2088 0 0 if $stype & 2048
2089 0 0 if $stype & 512
2090 0 0 if $h > 1 and $stype & 512
2094 0 0 if $stype & 256 or $stype & 1024
2097 0 0 if $stype & 256
2098 0 0 if $stype & 1024
2101 0 0 if $stype & 2048 or $stype & 512
2103 0 0 if $stype & 1024
2109 14 1 unless defined $color
2114 1 14 if $link ne ''
2121 22 15 unless $svg =~ /\n\n\z/