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)) |