Branch Coverage

blib/lib/FormValidator/Simple/Struct.pm
Criterion Covered Total %
branch 69 84 82.1


line true false branch
40 0 200 $$opt{'alias'} && $$opt{'alias'}{$meth} ? :
52 0 131 unless $param and $rule
64 2 326 if (ref $param eq 'Hash::MultiValue')
68 146 182 if (ref $param) { }
70 2 144 if (ref $param ne $ref) { }
71 1 1 if ($ref eq 'ARRAY') { }
1 0 elsif ($ref eq 'HASH') { }
79 119 25 if ($ref eq 'HASH') { }
25 0 elsif ($ref eq 'ARRAY') { }
81 9 145 if (not exists $$param{$_}) { }
82 1 8 if (ref $$rule{$_} eq 'ARRAY' and ref $$rule{$_}[0] eq 'ARRAY') { }
85 6 2 if (_instr($$rule{$_}, 'NOT_BLANK'))
94 2 23 if (@$rule != 1 and @$rule != @$param)
102 30 22 if (defined $$rule[$_]) { }
113 0 182 if (ref $rule eq 'HASH') { }
115 67 elsif (ref $rule eq 'ARRAY') { }
117 4 111 if ($$rule[0] eq 'CHARTYPE') { }
0 111 elsif ($$rule[0] eq 'ALLOWCHARACTER') { }
123 0 10 unless $code
127 0 4 if ($param =~ /[$range]/)
138 62 152 if (ref $_ eq 'ARRAY') { }
1 151 elsif (ref $_) { }
140 33 29 if ($min and not $min =~ /^\d+\.\d+$|^\d+$/)
143 7 55 if ($max and not $max =~ /^\d+\.\d+$|^\d+$/)
147 40 22 unless defined $max
149 26 36 if ($type eq 'LENGTH' or $type eq 'BETWEEN') { }
3 33 elsif ($type eq 'DIGIT_LENGTH') { }
27 6 elsif ($type eq 'CHARTYPE') { }
6 0 elsif ($type eq 'ALLOWCHARACTER') { }
150 0 26 if ($max < $min)
156 0 26 unless $code
157 11 15 unless (&$code($param, $min, $max))
159 4 7 if ($type eq 'LENGTH') { }
170 0 3 unless $code
171 2 1 unless (&$code($param, $min, $max))
181 0 30 unless $code
185 10 17 if ($param =~ /[$range]/)
204 0 151 unless $code
205 15 136 unless (&$code($param))
213 0 67 unless $code
214 16 51 unless (&$code($param))
243 6 6 if ($_ eq $word)