Condition Coverage

File:blib/lib/Email/Abuse/Investigator.pm
Coverage:56.8%

line%coveragecondition
60150
Adec
00
11
Params::Get::get_params(undef, \@_) || {}
100
Adec
00
11
Params::Get::get_params(undef, \@_) || {}
625100
ABdec
0X0
100
111
$HAS_CHI and not $_cache
33
ABdec
0X0
100
111
$HAS_CHI and not $_cache
7550
Adec
00
11
$text // ""
100
Adec
00
11
$text // ""
76933
ABdec
0X0
100
111
defined $text and $text =~ /\S/
100
ABdec
0X0
100
111
defined $text and $text =~ /\S/
84433
ABdec
000
011
1X1
$self->{'_origin'} //= $self->_find_origin
100
ABdec
000
011
1X1
$self->{'_origin'} //= $self->_find_origin
93133
ABdec
000
011
1X1
$self->{'_urls'} //= $self->_extract_and_resolve_urls
100
ABdec
000
011
1X1
$self->{'_urls'} //= $self->_extract_and_resolve_urls
1002100
ABdec
000
011
1X1
$self->{'_mailto_domains'} //= $self->_extract_and_analyse_domains
67
ABdec
000
011
1X1
$self->{'_mailto_domains'} //= $self->_extract_and_analyse_domains
1059100
ABdec
0X0
100
111
$dom and not $seen{$dom}++
100
ABdec
0X0
100
111
$dom and not $seen{$dom}++
1064100
ABdec
000
011
1X1
_registrable($d->{'domain'}) // $d->{'domain'}
33
ABdec
000
011
1X1
_registrable($d->{'domain'}) // $d->{'domain'}
106567
ABdec
0X0
100
111
$dom and not $seen{$dom}++
67
ABdec
0X0
100
111
$dom and not $seen{$dom}++
1134100
Adec
00
11
$c->{'address'} // ""
0
Adec
00
11
$c->{'address'} // ""
114267
ABdec
0X0
100
111
$u->{'abuse'} and $u->{'abuse'} ne "(unknown)"
67
ABdec
0X0
100
111
$u->{'abuse'} and $u->{'abuse'} ne "(unknown)"
116250
Adec
00
11
$d->{'source'} // ""
0
Adec
00
11
$d->{'source'} // ""
138250
Adec
00
11
$FLAG_WEIGHT{$severity} // 1
50
Adec
00
11
$FLAG_WEIGHT{$severity} // 1
179333
ABdec
0X0
100
111
$u->{'ip'} and $u->{'ip'} ne "(unresolved)"
67
ABdec
0X0
100
111
$u->{'ip'} and $u->{'ip'} ne "(unresolved)"
179467
ABdec
0X0
100
111
$u->{'org'} and $u->{'org'} ne "(unknown)"
67
ABdec
0X0
100
111
$u->{'org'} and $u->{'org'} ne "(unknown)"
1902100
Adec
00
11
$self->{'_contacts'} //= [$self->_compute_abuse_contacts]
100
Adec
00
11
$self->{'_contacts'} //= [$self->_compute_abuse_contacts]
2258100
Adec
00
11
$args{'form'} // ""
100
Adec
00
11
$args{'form'} // ""
22680
ABdec
0X0
100
111
$pa and $pa->{'form'}
100
ABdec
0X0
100
111
$pa and $pa->{'form'}
22740
Adec
00
11
$pa->{'form_upload'} // ""
0
Adec
00
11
$pa->{'note'} // ""
0
Adec
00
11
$pa->{'form_paste'} // ""
100
Adec
00
11
$pa->{'form_upload'} // ""
0
Adec
00
11
$pa->{'note'} // ""
0
Adec
00
11
$pa->{'form_paste'} // ""
22850
ABdec
0X0
100
111
$pa and $pa->{'form'}
100
ABdec
0X0
100
111
$pa and $pa->{'form'}
22920
Adec
00
11
$pa->{'form_upload'} // ""
50
Adec
00
11
$pa->{'note'} // ""
50
Adec
00
11
$pa->{'form_paste'} // ""
50
Adec
00
11
$pa->{'form_upload'} // ""
0
Adec
00
11
$pa->{'note'} // ""
0
Adec
00
11
$pa->{'form_paste'} // ""
23020
ABdec
0X0
100
111
$pa and $pa->{'form'}
67
ABdec
0X0
100
111
$pa and $pa->{'form'}
23090
Adec
00
11
$pa->{'form_upload'} // ""
50
Adec
00
11
$pa->{'note'} // ""
50
Adec
00
11
$pa->{'form_paste'} // ""
50
Adec
00
11
$pa->{'form_upload'} // ""
0
Adec
00
11
$pa->{'note'} // ""
0
Adec
00
11
$pa->{'form_paste'} // ""
23150
ABdec
0X0
100
111
$d->{'registrar_abuse'} and $d->{'registrar_abuse'} =~ /\@([\w.-]+)/
67
ABdec
0X0
100
111
$d->{'registrar_abuse'} and $d->{'registrar_abuse'} =~ /\@([\w.-]+)/
23180
ABdec
0X0
100
111
$rpa and $rpa->{'form'}
100
ABdec
0X0
100
111
$rpa and $rpa->{'form'}
2325100
Adec
00
11
$rpa->{'form_upload'} // ""
0
Adec
00
11
$rpa->{'note'} // ""
50
Adec
00
11
$rpa->{'form_paste'} // ""
233450
Adec
00
11
$self->_header_value($hname) // (next)
2341100
ABdec
0X0
100
111
$pa and $pa->{'form'}
234950
Adec
00
11
$pa->{'form_upload'} // ""
50
Adec
00
11
$pa->{'note'} // ""
50
Adec
00
11
$pa->{'form_paste'} // ""
235967
ABdec
0X0
100
111
$pa and $pa->{'form'}
236550
Adec
00
11
$pa->{'form_upload'} // ""
50
Adec
00
11
$pa->{'note'} // ""
50
Adec
00
11
$pa->{'form_paste'} // ""
238033
ABdec
0X0
100
111
$pa and $pa->{'form'}
238650
Adec
00
11
$pa->{'form_upload'} // ""
50
Adec
00
11
$pa->{'note'} // ""
50
Adec
00
11
$pa->{'form_paste'} // ""
251750
Adec
00
11
_sanitise_output($hop->{'ip'}) // "(unknown)"
254967
ABdec
000
011
1X1
$URL_SHORTENERS{$bare} || $self->{'url_shorteners'}{$bare}
2645100
ABdec
0X0
100
111
defined $line and length "$line $w" > $ROLE_WRAP_LEN
3752100
Adec
00
11
$ip // ""
382867
ABdec
0X0
100
111
$_cache and $result
384750
Adec
00
11
$self->_raw_whois($domain, "whois.iana.org") // (return)
3923100
ABdec
0X0
100
111
$res and $res->is_success
3969100
Adec
00
11
$server //= "whois.iana.org"
400050
ABCdec
0000
0011
01X1
1XX1
$@ or not defined $n or $n <= 0
400467
ABdec
000
011
1X1
not defined $n or $n <= 0
40090
Adec
00
11
$response || undef
431650
Adec
00
11
Params::Get::get_params('name', \@_) || {}
432667
ABdec
0X0
100
111
defined $params and defined $params->{'name'}