Branch Coverage

blib/lib/Data/Sah/Compiler/perl/TH/hash.pm
Criterion Covered Total %
branch 57 74 77.0


line true false branch
37 150 138 if ($which eq 'is') { }
138 0 elsif ($which eq 'in') { }
53 6 109 if ($which eq 'len') { }
34 75 elsif ($which eq 'min_len') { }
21 54 elsif ($which eq 'max_len') { }
6 48 elsif ($which eq 'len_between') { }
18 30 elsif ($which eq 'has') { }
12 18 elsif ($which eq 'each_index') { }
18 0 elsif ($which eq 'each_elem') { }
0 0 elsif ($which eq 'check_each_index') { }
0 0 elsif ($which eq 'check_each_elem') { }
0 0 elsif ($which eq 'uniq') { }
0 0 elsif ($which eq 'exists') { }
60 0 6 if ($cd->{'cl_is_expr'}) { }
76 0 12 if $cd->{'args'}{'data_term_includes_topic_var'}
78 0 12 if $cd->{'args'}{'data_term_includes_topic_var'}
80 0 18 if $cd->{'args'}{'data_term_includes_topic_var'}
82 0 18 if $cd->{'args'}{'data_term_includes_topic_var'}
110 46 9 if ($which eq 'keys') { }
118 1 54 if $cd->{'args'}{'data_term_includes_topic_var'}
120 52 3 if ($cd->{'clset'}{"$which.restrict"} // 1)
123 46 6 $which eq 'keys' ? :
46 6 $which eq 'keys' ? :
141 1 51 if $cd->{'args'}{'data_term_includes_topic_var'}
146 46 9 if ($which eq "keys")
151 1 54 if $cd->{'args'}{'data_term_includes_topic_var'}
161 9 91 $which eq 're_keys' ? :
171 9 91 if $which eq "re_keys"
178 67 33 if $cd->{'use_dpath'}
180 9 91 if $which eq "re_keys"
205 6 85 $sdef ? :
9 91 $which eq 're_keys' ? :
9 91 $which eq 're_keys' ? :
94 6 $which eq 're_keys' || !$sdef ? :
212 1 54 if $cd->{'args'}{'data_term_includes_topic_var'}
280 0 9 if ($cd->{'cl_is_expr'})
329 0 9 if ($cd->{'cl_is_expr'})