Branch Coverage

blib/lib/WWW/Wappalyzer.pm
Criterion Covered Total %
branch 73 84 86.9


line true false branch
93 0 1 unless $params{'html'} or $params{'headers'} or $params{'url'}
96 7 2 if ($params{'html'})
99 1 8 if ($params{'url'})
102 5 4 if ($params{'headers'})
110 1 8 unless scalar keys %_categories
113 2 7 $params{'cats'} && (ref $params{'cats'} || '') eq 'ARRAY' ? :
116 5 4 if ($params{'headers'})
126 0 363 unless my $apps_ref = $_categories{$cat}
134 506 5607 if (@cats > 1 and $app_ref->{'multi_cat'} and exists $tried_multi_cat_apps{$app_ref->{'name'}}) { }
143 887 2170 if (defined $headers_ref and exists $app_ref->{'headers_rules'})
146 761 329 unless my $header_val = $headers_ref->{$header}
148 6 323 if ($header_val =~ /$rule->{'re'}/)
150 6 0 if ($confidence >= 100)
158 5601 6 unless ($detected)
163 3391 2202 if (defined $params{$rule_type} and exists $app_ref->{$rule_name})
165 9 3496 if ($params{$rule_type} =~ /$rule->{'re'}/)
167 7 2 if ($confidence >= 100)
178 455 5128 if (@cats > 1 and $app_ref->{'multi_cat'})
183 6100 13 unless $detected
188 12 1 unless $MULTIPLE_APP_CATS{$cat}
205 1 7 unless scalar keys %_categories
214 0 3 unless open my $fh, '<', $clue_file
227 0 3 if $@
230 0 3 unless my $cats_ref = $cfg_ref->{'categories'}
233 0 3 unless my $apps_ref = $cfg_ref->{'apps'}
238 0 1695 unless my $new_app_ref = _process_app_clues($app, $app_ref)
240 0 1695 unless my(@cats) = @{$app_ref->{'cats'};}
242 130 1565 if @cats > 1
245 0 1855 unless my $cat = $cats_ref->{$cat_id}
265 90 971 ref $rule_ref eq 'ARRAY' ? :
1052 1061 !ref($rule_ref) ? :
268 523 1590 if ($field eq 'html') { }
547 1043 elsif ($field eq 'script') { }
72 971 elsif ($field eq 'url') { }
365 606 elsif ($field eq 'meta') { }
606 0 elsif ($field eq 'headers') { }
312 1121 574 if (@html_rules)
327 58 570 if (($confidence) = $param =~ /^\s*confidence\s*:\s*(\d+)\s*$/)
334 2273 76 defined $re ? :
361 2263 86 if ($parser->regex($re))
366 45004 10008 if ($ref eq 'Regexp::Parser::exact' or $ref eq 'Regexp::Parser::anyof_char') { }
382 317 876 if (@$rules > 1 and @$rules == grep({$_->{'confidence'} == 100;} @$rules))