Branch Coverage

blib/lib/Struct/Conditional.pm
Criterion Covered Total %
branch 74 100 74.0


line true false branch
12 0 15 if defined $struct and not ref $struct and $struct eq "compiled_null"
24 51 66 if ($ref eq 'HASH') { }
6 60 elsif ($ref eq 'ARRAY') { }
33 0 81 if ($value and $value eq 'compiled_null') { }
37 51 0 keys %{$json;} ? :
43 0 21 $value && $value eq 'compiled_null' ? :
57 7 44 if ($loops{'for'})
59 0 7 unless defined $key
60 5 2 if ($loops{'for'}{'each'})
64 0 5 unless (ref $params->{$key} || '') eq "ARRAY"
67 20 0 if scalar keys %{$jsn;}
69 5 0 if scalar @each
71 2 5 if ($loops{'for'}{'keys'})
75 0 2 unless (ref $params->{$key} || '') eq "HASH"
81 8 0 if scalar keys %{$jsn;}
83 2 0 if (scalar %keys)
88 1 1 if ($map =~ /^1$/) { }
103 26 53 if ($keywords{'if'})
105 17 9 unless ($expression)
106 17 0 if ($keywords{'elsif'})
109 7 10 unless ($expression)
110 7 0 if ($keywords{'else'})
115 26 0 if ($expression)
119 4 75 if ($keywords{'given'})
120 0 4 unless $keywords{'given'}{'key'}
121 0 4 unless ref $keywords{'given'}{'when'}
124 2 2 if ($ref eq 'ARRAY') { }
2 0 elsif ($ref eq 'HASH') { }
128 1 3 if $expression
141 1 2 if $expression
146 2 2 unless $expression
147 4 0 if ($expression)
158 0 56 if defined $keyword->{'exists'}
160 56 0 if (defined $key)
162 52 4 if not $success and defined $keyword->{'m'}
164 0 56 if not $success and defined $keyword->{'im'}
166 0 56 if not $success and defined $keyword->{'nm'}
168 0 56 if not $success and defined $keyword->{'inm'}
170 1 55 if not $success and defined $keyword->{'eq'}
172 3 53 if not $success and defined $keyword->{'ne'}
174 0 56 if not $success and defined $keyword->{'gt'}
177 0 56 if not $success and defined $keyword->{'lt'}
178 2 54 if ($keyword->{'or'} and not $success)
182 2 54 if ($keyword->{'and'} and $success)
186 2 54 if ($keyword->{'elsif'} and not $success)
191 0 56 if $keyword->{'else'} and not $success
192 27 29 $success ? :
199 49 135 if ($ref eq 'HASH') { }
6 129 elsif ($ref eq 'ARRAY') { }
10 125 elsif (defined $then and $then =~ /\{($params_reg)\}/) { }