Branch Coverage

blib/lib/PPI/HTML/CodeFolder.pm
Criterion Covered Total %
branch 67 118 56.7


line true false branch
511 0 2 unless $self
515 2 0 $fold ? :
530 2 0 if $$self{'fold'}{'Abbreviate'} and not ref $$self{'fold'}{'Abbreviate'}
533 0 2 unless $$self{'fold'}{'MinFoldLines'}
536 2 0 unless $$self{'fold'}{'Tabs'}
574 0 0 unless open OUTF, ">$_[1]"
595 0 0 unless open OUTF, ">$_[1]"
629 2 0 if ($$self{'colors'}{'line_number'})
634 0 2 unless $orig_colors
644 2 0 if ($$self{'fold'}{'Abbreviate'})
685 0 2 unless my $html = $self->SUPER::html($src)
688 0 0 ref $src ? :
0 2 unless $outfile
690 0 2 unless ref $src or substr($src, -3) eq '.pm'
699 0 2734 if $line =~ s/^\s*$//
700 1550 1184 unless $line =~ tr/\t//
709 5234 1976 unless $1 eq "\t"
720 0 2 unless $orig_colors
726 1 1 $$opts{'Stylesheet'} ? :
731 1 1 $$opts{'Javascript'} ? :
2 0 if $$opts{'Expandable'}
739 0 2 unless $html =~ s[<style type="text/css">.+</style>][$style]s
792 60 152 if ($$_[1] - $$_[0] + 1 >= $$opts{'MinFoldLines'}) { }
0 152 elsif ($$self{'_verbose'}) { }
816 2 0 if ($abvs)
818 2 0 if ($$opts{'Expandable'})
826 2 0 $$opts{'Expandable'} ? :
834 2 0 if $$self{'_needs_ln'}
843 0 2 if ($$self{'_verbose'})
891 0 1 unless open OUTF, ">$path/toc.html"
920 2 1 $args{'Order'} ? :
933 1 2 unless exists $ordered{$_}
940 2 3 unless exists $$sources{$class}
981 0 1 unless open OUTF, ">$path/index.html"
1002 2 0 $home ? :
1023 0 2 unless exists $$self{'_pkgs'}
1032 0 2 if $script
1043 2 38 if ($2 eq 'package') { }
1045 0 2 if exists $$pkgs{$pkg} and $$pkgs{$pkg}{'URL'}
1053 0 38 if ($pkg =~ /^(.+)::(\w+)$/) { }
1057 0 0 unless exists $$pkgs{$1}
1066 0 38 $curpkg eq 'main' ? :
1075 0 2 if $script
1108 0 10 unless $_ eq 'Whitespace' or $$opts{$_}
1113 2 8 if $$html =~ /$fre/cgs
1120 10 0 if scalar @{$folded{$_};}
1151 1266 334 unless $temp[-1][1] + 1 >= $$_[0]
1157 156 178 if $temp[-1][1] < $$_[1]
1167 0 8 if ($#$first < 0)
1173 126 494 $$first[0][0] < $$second[0][0] ? :
1176 0 8 if scalar @$first
1177 8 0 if scalar @$second
1192 2 0 scalar @$ftsorted ? :
1243 28 60 if s/^\s*$//
1244 60 0 unless /^(\s+)/
1246 0 0 if $shortws > length $1
1249 0 0 $_ ? :
0 60 if $shortws
1270 62 0 unless substr($jspath, 0, 2) eq './' and substr($path, 0, 2) eq './'