Branch Coverage

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


line true false branch
70 0 0 if (exists $data->{'ExecutionOptions'}{$opt} and $data->{'ExecutionOptions'}{$opt} eq 'y') { }
172 0 0 if ($opts_ref->{'debug'})
173 0 0 if ($opts_ref->{'pass'}) { }
183 0 0 if ($opts_ref->{'debug'})
191 0 0 if ($opts_ref->{'pass'}) { }
204 0 0 if ($res->is_success) { }
205 0 0 if ($opts_ref->{'debug'})
211 0 0 if ($response =~ /500/) { }
221 0 0 if ($opts_ref->{'debug'})
230 0 0 if ($res->content =~ /\>No userid found\
237 0 0 if ($res->content =~ /(Welcome, .*?)\./)
245 0 0 if ($res->content =~ /sc\?id\=(.*?)\"\>/gi) { }
251 0 0 unless ($opts_ref->{'quiet'})
257 0 0 if ($opts_ref->{'quiet'})
262 0 0 if ($last_seen and $nextid eq $last_seen)
274 0 0 if ($opts_ref->{'debug'})
285 0 0 if ($res->is_success) { }
286 0 0 if ($opts_ref->{'debug'})
296 0 0 if ($opts_ref->{'debug'})
309 0 0 unless ($base_uri)
321 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) { }
326 0 0 unless ($opts_ref->{'quiet'})
340 0 0 if ($form) { }
341 0 0 if ($opts_ref->{'debug'})
348 0 0 if ($opts_ref->{'debug'})
366 0 0 if ($info =~ /%([A-Fa-f\d]{2})/g)
370 0 0 if ($send and $send eq 'on' || $type =~ /^mole/ && $send == 1) { }
385 0 0 if ($willsend) { }
393 0 0 if ($wontsend) { }
403 0 0 if ($opts_ref->{'stupid'}) { }
407 0 0 if ($reply and not $reply =~ /^y/i) { }
0 0 elsif (not $reply) { }
428 0 0 unless ($opts_ref->{'stupid'})
433 0 0 if ($reply and not $reply =~ /^y/i) { }
452 0 0 unless ($opts_ref->{'quiet'})
489 0 0 if ($opts_ref->{'check_only'})
495 0 0 if ($opts_ref->{'debug'})
504 0 0 if (not $_cancel) { }
506 0 0 if ($opts_ref->{'debug'})
516 0 0 if ($opts_ref->{'debug'})
524 0 0 if ($res->is_success) { }
525 0 0 if ($opts_ref->{'debug'})
537 0 0 if ($_cancel)
543 0 0 if ($res->content =~ /(Spam report id .*?)\/sig) { }
0 0 elsif ($res->content =~ /report for mole\@devnull.spamcop.net/) { }
557 0 0 unless ($opts_ref->{'quiet'})
559 0 0 if $report