Branch Coverage

blib/lib/WWW/Topica.pm
Criterion Covered Total %
branch 38 76 50.0


line true false branch
70 0 1 unless defined $opts{'list'}
76 0 1 if exists $opts{'local'} and not exists $opts{'local'}
97 1 300 unless ($$self{'_index'})
100 0 1 if $$self{'debug'}
105 0 301 unless ($$self{'local'})
107 0 0 if $time_diff > 3600
113 4 297 unless (defined $$self{'_message_ids'} and @{$$self{'_message_ids'};})
116 1 3 unless defined $$self{'_next'}
119 0 3 if defined $$self{'last'} and $$self{'_next'} >= $$self{'last'}
126 0 3 unless $$self{'_index'}
135 0 300 unless defined $mess_id
139 0 300 unless $mail_html
145 300 0 if ($mail->eto)
146 300 0 if defined $mail->eto
147 0 300 unless $reply_html
174 0 1 if ($anon)
180 0 1 if $$self{'debug'}
182 1 0 if $$self{'local'}
184 0 0 unless ($anon)
211 0 3 if $$self{'debug'}
215 3 0 if ($$self{'local'})
217 1 2 if (0 == $offset) { }
1 1 elsif (100 == $offset) { }
1 0 elsif (200 == $offset) { }
244 0 300 if $$self{'debug'}
248 300 0 if ($$self{'local'})
269 0 300 if $$self{'debug'}
274 300 0 if ($$self{'local'})
302 300 0 if (defined $reply) { }
309 0 300 if ($name =~ /@/ and not $email =~ /@/)
317 300 0 if ($name ne $email and $email =~ /@/) { }
0 0 elsif ($email =~ /@/) { }
328 0 300 if defined $reply and $subject =~ /^\s*$/
352 300 0 if ($reply and defined $reply->body) { }
363 300 0 if ($reply)
434 603 0 if $response->is_success
435 0 0 if ($response->is_redirect)
443 0 0 unless ($response->is_success or $response->is_redirect)