Branch Coverage

lib/Module/Dependency/Grapher.pm
Criterion Covered Total %
branch 32 128 25.0


line true false branch
39 0 5 unless open TXT, "> $filename"
41 4 1 unless $$options{'NoLegend'}
46 2 3 unless $$options{'NoVersion'}
50 5 16 if ($_ == $pushed) { }
4 12 elsif ($_ == $pushed + 1) { }
53 16 5 unless $_ == $#Module::Dependency::Grapher::TIERS
80 0 0 unless open HTML, "> $filename"
82 0 0 unless $$options{'NoVersion'}
84 0 0 unless $$options{'NoLegend'}
92 0 0 if ($_ == $pushed) { }
0 0 elsif ($_ == $pushed + 1) { }
104 0 0 if ($$options{'ImageMap'})
108 0 0 if ($maxitems < 8) { }
0 0 elsif ($maxitems < 16) { }
119 0 0 if (lc $$options{'ImageMap'} eq 'print') { }
160 0 0 if ($maxitems < 8) { }
0 0 elsif ($maxitems < 16) { }
167 0 0 scalar @Module::Dependency::Grapher::TIERS < 3 ? :
188 0 0 unless $$options{'NoVersion'}
192 0 0 unless $$options{'NoLegend'}
196 0 0 unless open IMG, "> $filename"
198 0 0 if ($type eq 'GIF') { }
0 0 elsif ($type eq 'PNG') { }
0 0 elsif ($type eq 'JPG') { }
0 0 elsif ($type eq 'GD') { }
228 0 0 if ($maxitems < 8) { }
0 0 elsif ($maxitems < 16) { }
235 0 0 scalar @Module::Dependency::Grapher::TIERS < 3 ? :
283 0 0 unless $$options{'NoVersion'}
290 0 0 unless $$options{'NoLegend'}
298 0 0 unless open IMG, "> $filename"
308 0 0 uc $$options{'Format'} eq 'PS' ? :
309 0 0 exists $$options{'Colour'} ? :
318 0 0 if ($maxitems < 8) { }
0 0 elsif ($maxitems < 16) { }
325 0 0 scalar @Module::Dependency::Grapher::TIERS < 3 ? :
352 0 0 unless $$options{'NoLegend'}
360 0 0 unless $$options{'NoVersion'}
379 5 0 unless (ref $seeds)
380 0 4 unless ($kind eq 'CHILD' or $kind eq 'PARENT' or $kind eq 'BOTH')
395 4 1 if ($kind eq 'CHILD' or $kind eq 'BOTH')
402 12 16 unless $$obj{'filename'}
408 4 24 if $seen{$dep}
409 0 24 if ($re and not $dep =~ /$re/ or $xre and $dep =~ /$xre/)
423 8 4 if $found
431 4 1 if ($kind eq 'PARENT' or $kind eq 'BOTH')
438 0 24 unless $$obj{'filename'}
444 12 20 if $seen{$dep}
445 0 20 if ($re and not $dep =~ /$re/ or $xre and $dep =~ /$xre/)
459 8 4 if ($found)
471 12 9 if $num > $maxitems
490 0 0 unless (exists $$obj{'x'})
515 0 0 unless exists $Module::Dependency::Grapher::LOOKUP{$dep}
541 0 0 if ($type =~ /^GD/) { }
0 0 elsif ($type =~ /SVG/) { }
559 0 0 if ($type =~ /^GD/) { }
0 0 elsif ($type =~ /SVG/) { }
602 0 0 if ($type =~ /^GD/) { }
0 0 elsif ($type =~ /^PostScript/) { }
0 0 elsif ($type =~ /^SVG/) { }
609 0 0 if ($$colours{'_HREF_FORMAT'}) { }
635 0 0 if ($type =~ /^GD/) { }
0 0 elsif ($type =~ /^PostScript/) { }
0 0 elsif ($type =~ /^SVG/) { }