Branch Coverage

blib/lib/WWW/Wappalyzer.pm
Criterion Covered Total %
branch 75 86 87.2


line true false branch
98 0 1 unless $params{'html'} or $params{'headers'} or $params{'url'}
101 9 4 if ($params{'html'})
105 1 12 if ($params{'url'})
110 9 4 if ($params{'headers'})
111 1 8 unless ref $params{'headers'} eq 'HASH'
116 2 7 ref $header_vals_ref ? :
128 1 11 unless scalar keys %_categories
131 2 10 $params{'cats'} && (ref $params{'cats'} || '') eq 'ARRAY' ? :
136 0 519 unless my $apps_ref = $_categories{$cat}
144 739 8199 if (@cats > 1 and $app_ref->{'multi_cat'} and exists $tried_multi_cat_apps{$app_ref->{'name'}}) { }
153 1872 3783 if (defined $headers_ref and exists $app_ref->{'headers_rules'})
158 1691 550 unless my $header_vals_ref = $headers_ref->{$header}
161 8 676 if ($header_val =~ /$rule->{'re'}/)
163 8 0 if ($confidence >= 100)
172 8191 8 unless ($detected)
177 3924 2517 if (defined $params{$rule_type} and exists $app_ref->{$rule_name})
179 9 4051 if ($params{$rule_type} =~ /$rule->{'re'}/)
181 7 2 if ($confidence >= 100)
192 650 7480 if (@cats > 1 and $app_ref->{'multi_cat'})
197 8923 15 unless $detected
202 14 1 unless $MULTIPLE_APP_CATS{$cat}
219 1 10 unless scalar keys %_categories
228 0 3 unless open my $fh, '<', $clue_file
241 0 3 if $@
244 0 3 unless my $cats_ref = $cfg_ref->{'categories'}
247 0 3 unless my $apps_ref = $cfg_ref->{'apps'}
252 0 1696 unless my $new_app_ref = _process_app_clues($app, $app_ref)
254 0 1696 unless my(@cats) = @{$app_ref->{'cats'};}
256 130 1566 if @cats > 1
259 0 1856 unless my $cat = $cats_ref->{$cat_id}
279 90 972 ref $rule_ref eq 'ARRAY' ? :
1052 1062 !ref($rule_ref) ? :
282 523 1591 if ($field eq 'html') { }
547 1044 elsif ($field eq 'script') { }
72 972 elsif ($field eq 'url') { }
365 607 elsif ($field eq 'meta') { }
607 0 elsif ($field eq 'headers') { }
326 1121 575 if (@html_rules)
341 58 570 if (($confidence) = $param =~ /^\s*confidence\s*:\s*(\d+)\s*$/)
348 2274 76 defined $re ? :
375 2264 86 if ($parser->regex($re))
380 45005 10008 if ($ref eq 'Regexp::Parser::exact' or $ref eq 'Regexp::Parser::anyof_char') { }
396 317 876 if (@$rules > 1 and @$rules == grep({$_->{'confidence'} == 100;} @$rules))