Branch Coverage

blib/lib/SpamcupNG.pm
Criterion Covered Total %
branch 0 102 0.0


line true false branch
69 0 0 if (exists $data->{'ExecutionOptions'}{$opt} and $data->{'ExecutionOptions'}{$opt} eq 'y') { }
171 0 0 if ($opts_ref->{'debug'})
172 0 0 if ($opts_ref->{'pass'}) { }
182 0 0 if ($opts_ref->{'debug'})
190 0 0 if ($opts_ref->{'pass'}) { }
203 0 0 if ($res->is_success) { }
204 0 0 if ($opts_ref->{'debug'})
210 0 0 if ($response =~ /500/) { }
220 0 0 if ($opts_ref->{'debug'})
229 0 0 if ($res->content =~ /\>No userid found\
236 0 0 if ($res->content =~ /(Welcome, .*?)\./)
244 0 0 if ($res->content =~ /sc\?id\=(.*?)\"\>/gi) { }
250 0 0 unless ($opts_ref->{'quiet'})
256 0 0 if ($opts_ref->{'quiet'})
261 0 0 if ($last_seen and $nextid eq $last_seen)
273 0 0 if ($opts_ref->{'debug'})
284 0 0 if ($res->is_success) { }
285 0 0 if ($opts_ref->{'debug'})
296 0 0 if ($opts_ref->{'debug'})
309 0 0 unless ($base_uri)
322 0 0 if ($res->content =~ m[Please make sure this email IS spam.*?size=2\>\n(.*?)\
0 0 elsif ($res->content =~ /Send Spam Report\(S\) Now/gi) { }
0 0 elsif ($res->content =~ m[Sorry, this email is too old.*This mail was received on (.*?)\]sig) { }
0 0 elsif ($res->content =~ /click reload if this page does not refresh automatically in \n(\d+) seconds/gs) { }
0 0 elsif ($res->content =~ /No source IP address found, cannot proceed. Not full header/gs) { }
329 0 0 unless ($opts_ref->{'quiet'})
339 0 0 if ($form) { }
340 0 0 if ($opts_ref->{'debug'})
347 0 0 if ($opts_ref->{'debug'})
365 0 0 if ($info =~ /%([A-Fa-f\d]{2})/g)
369 0 0 if ($send and $send eq 'on' || $type =~ /^mole/ && $send == 1) { }
384 0 0 if ($willsend) { }
392 0 0 if ($wontsend) { }
402 0 0 if ($opts_ref->{'stupid'}) { }
406 0 0 if ($reply and not $reply =~ /^y/i) { }
0 0 elsif (not $reply) { }
427 0 0 unless ($opts_ref->{'stupid'})
432 0 0 if ($reply and not $reply =~ /^y/i) { }
451 0 0 unless ($opts_ref->{'quiet'})
488 0 0 if ($opts_ref->{'check_only'})
494 0 0 if ($opts_ref->{'debug'})
503 0 0 if (not $_cancel) { }
505 0 0 if ($opts_ref->{'debug'})
515 0 0 if ($opts_ref->{'debug'})
523 0 0 if ($res->is_success) { }
524 0 0 if ($opts_ref->{'debug'})
536 0 0 if ($_cancel)
542 0 0 if ($res->content =~ /(Spam report id .*?)\/sig) { }
0 0 elsif ($res->content =~ /report for mole\@devnull.spamcop.net/) { }
556 0 0 unless ($opts_ref->{'quiet'})
558 0 0 if $report