Branch Coverage

lib/CGI/FormBuilder/Source/File.pm
Criterion Covered Total %
branch 48 70 68.5


line true false branch
48 23 0 if ref $self
63 23 0 if (ref $file eq 'SCALAR') { }
0 0 elsif (ref $file eq 'ARRAY') { }
68 0 0 unless open F, "<$file"
76 25 214 if /^\s*$/ or /^\s*#/
77 0 214 if /^\s*\[\%\s*\#|^\s*-*\%\]/
80 0 214 if $term eq 'charset' and $line =~ /^utf/
81 0 214 if $utf8
84 3 211 if ($here) { }
85 1 2 if ($term eq $here) { }
95 120 91 if $term =~ s/^(\s+)//
99 91 120 if ($s == 1) { }
24 96 elsif ($s <= $lsp) { }
112 1 159 if ($s >= $psp and $inval and not length $line)
121 132 81 if (length $line) { }
127 1 131 if ($line =~ /^<<(.+)/) { }
2 129 elsif ($here) { }
137 8 121 if ($term =~ /^js/ or $term =~ /^on[a-z]/ or $term eq 'messages' or $term eq 'comment') { }
2 119 elsif ($line =~ s/^\\(.)//) { }
146 0 2 if ($self->{'caller'}) { }
153 2 0 unless $line =~ /::/
156 0 2 if $@
163 25 196 if $val[$i] =~ /=/
168 1 128 if ($ptr->{$term}) { }
170 0 0 ref $val[0] eq 'ARRAY' ? :
0 0 @val > 1 ? :
1 0 ref $ptr->{$term} ? :
173 1 97 ref $val[0] eq 'ARRAY' ? :
30 98 @val > 1 ? :
180 15 66 if ($term eq 'fields') { }
41 25 elsif ($refield) { }
197 23 0 if (ref $self)
200 23 0 unless exists $ret->{$k}
208 0 23 wantarray ? :
217 0 0 unless open M, ">$out"