| line | % | coverage | condition |
|---|
| 613 | 100 | | Params::Get::get_params(undef, \@_) || {} |
| 100 | | Params::Get::get_params(undef, \@_) || {} |
| 637 | 33 | | $HAS_CHI and not $_cache |
| 33 | | $HAS_CHI and not $_cache |
| 767 | 0 | | $text // "" |
| 100 | | $text // "" |
| 781 | 100 | | defined $text and $text =~ /\S/ |
| 100 | | defined $text and $text =~ /\S/ |
| 856 | 100 | | $self->{'_origin'} //= $self->_find_origin |
| 100 | | $self->{'_origin'} //= $self->_find_origin |
| 943 | 67 | | $self->{'_urls'} //= $self->_extract_and_resolve_urls |
| 100 | | $self->{'_urls'} //= $self->_extract_and_resolve_urls |
| 1014 | 100 | | $self->{'_mailto_domains'} //= $self->_extract_and_analyse_domains |
| 67 | | $self->{'_mailto_domains'} //= $self->_extract_and_analyse_domains |
| 1071 | 100 | | $dom and not $seen{$dom}++ |
| 100 | | $dom and not $seen{$dom}++ |
| 1076 | 67 | | _registrable($d->{'domain'}) // $d->{'domain'} |
| 33 | | _registrable($d->{'domain'}) // $d->{'domain'} |
| 1077 | 67 | | $dom and not $seen{$dom}++ |
| 67 | | $dom and not $seen{$dom}++ |
| 1146 | 50 | | $c->{'address'} // "" |
| 0 | | $c->{'address'} // "" |
| 1154 | 67 | | $u->{'abuse'} and $u->{'abuse'} ne "(unknown)" |
| 67 | | $u->{'abuse'} and $u->{'abuse'} ne "(unknown)" |
| 1175 | 50 | | $d->{'source'} // "" |
| 0 | | $d->{'source'} // "" |
| 1396 | 0 | | $FLAG_WEIGHT{$severity} // 1 |
| 50 | | $FLAG_WEIGHT{$severity} // 1 |
| 1807 | 67 | | $u->{'ip'} and $u->{'ip'} ne "(unresolved)" |
| 67 | | $u->{'ip'} and $u->{'ip'} ne "(unresolved)" |
| 1808 | 100 | | $u->{'org'} and $u->{'org'} ne "(unknown)" |
| 100 | | $u->{'org'} and $u->{'org'} ne "(unknown)" |
| 1916 | 100 | | $self->{'_contacts'} //= [$self->_compute_abuse_contacts] |
| 100 | | $self->{'_contacts'} //= [$self->_compute_abuse_contacts] |
| 2272 | 100 | | $args{'form'} // "" |
| 2282 | 100 | | $pa and $pa->{'form'} |
| 2288 | 100 | | $pa->{'form_upload'} // "" |
| 0 | | $pa->{'note'} // "" |
| 0 | | $pa->{'form_paste'} // "" |
| 2299 | 100 | | $pa and $pa->{'form'} |
| 2306 | 50 | | $pa->{'form_upload'} // "" |
| 50 | | $pa->{'note'} // "" |
| 50 | | $pa->{'form_paste'} // "" |
| 2316 | 67 | | $pa and $pa->{'form'} |
| 2323 | 50 | | $pa->{'form_upload'} // "" |
| 50 | | $pa->{'note'} // "" |
| 50 | | $pa->{'form_paste'} // "" |
| 2329 | 67 | | $d->{'registrar_abuse'} and $d->{'registrar_abuse'} =~ /\@([\w.-]+)/ |
| 2332 | 100 | | $rpa and $rpa->{'form'} |
| 2339 | 100 | | $rpa->{'form_upload'} // "" |
| 0 | | $rpa->{'note'} // "" |
| 50 | | $rpa->{'form_paste'} // "" |
| 2348 | 50 | | $self->_header_value($hname) // (next) |
| 2355 | 100 | | $pa and $pa->{'form'} |
| 2363 | 50 | | $pa->{'form_upload'} // "" |
| 50 | | $pa->{'note'} // "" |
| 50 | | $pa->{'form_paste'} // "" |
| 2373 | 67 | | $pa and $pa->{'form'} |
| 2379 | 50 | | $pa->{'form_upload'} // "" |
| 50 | | $pa->{'note'} // "" |
| 50 | | $pa->{'form_paste'} // "" |
| 2394 | 33 | | $pa and $pa->{'form'} |
| 2400 | 50 | | $pa->{'form_upload'} // "" |
| 50 | | $pa->{'note'} // "" |
| 50 | | $pa->{'form_paste'} // "" |
| 2531 | 50 | | _sanitise_output($hop->{'ip'}) // "(unknown)" |
| 2563 | 100 | | $URL_SHORTENERS{$bare} || $self->{'url_shorteners'}{$bare} |
| 2659 | 100 | | defined $line and length "$line $w" > $ROLE_WRAP_LEN |
| 3766 | 100 | | $ip // "" |
| 3842 | 67 | | $_cache and $result |
| 3861 | 50 | | $self->_raw_whois($domain, "whois.iana.org") // (return) |
| 3948 | 100 | | $safe_ip =~ /\A\d{1,3}(?:\.\d{1,3}){3}\z/ or $safe_ip =~ /\A[0-9a-fA-F:]+\z/ |
| 3957 | 100 | | $res and $res->is_success |
| 4012 | 50 | | $server //= "whois.iana.org" |
| 4053 | 75 | | $@ or not defined $n or $n <= 0 |
| 4057 | 67 | | not defined $n or $n <= 0 |
| 4062 | 100 | | $response || undef |
| 4369 | 50 | | Params::Get::get_params('name', \@_) || {} |
| 4379 | 67 | | defined $params and defined $params->{'name'} |