Branch Coverage

blib/lib/NNML/Connection.pm
Criterion Covered Total %
branch 0 158 0.0


line true false branch
74 0 0 if (not exists $NNML::Connection::ACMD{$cmd}) { }
77 0 0 if (NNML::Auth::perm($self, $NNML::Connection::ACMD{$cmd})) { }
122 0 0 if (uc $cmd eq 'USER') { }
0 0 elsif (uc $cmd eq 'PASS') { }
124 0 0 unless (exists $$self{'_passwd'} and $$self{'_passwd'} ne '*')
130 0 0 unless (exists $$self{'_user'} and $$self{'_user'} ne 'nobody')
139 0 0 if (NNML::Auth::check($$self{'_user'}, $$self{'_passwd'})) { }
151 0 0 unless ($group)
178 0 0 if (@_) { }
182 0 0 unless ($cmd =~ /NEWSGROUPS/)
205 0 0 unless (defined $ltime)
240 0 0 unless ($$self{'_group'})
269 0 0 unless ($$self{'_group'})
277 0 0 unless $val
286 0 0 unless ($$self{'_group'})
290 0 0 unless ($$self{'_article'})
294 0 0 if ($$self{'_article'} < $$self{'_group'}->max) { }
306 0 0 unless ($$self{'_group'})
310 0 0 unless ($$self{'_article'})
314 0 0 if ($$self{'_article'} > $$self{'_group'}->min) { }
336 0 0 unless (defined $ano)
340 0 0 unless ($$self{'_group'})
344 0 0 if ($ano >= $$self{'_group'}->min and $ano <= $$self{'_group'}->max) { }
358 0 0 unless (defined $ano)
362 0 0 unless ($$self{'_group'})
366 0 0 if ($$self{'_group'}->delete($ano)) { }
376 0 0 unless ($$self{'_group'})
380 0 0 if ($NNML::Connection::ACTIVE->delete_group($$self{'_group'}->name)) { }
391 0 0 unless ($$self{'_group'})
396 0 0 unless ($ano)
402 0 0 unless ($head)
406 0 0 unless ($$self{'_group'}->delete($ano))
418 0 0 unless ($$self{'_group'})
423 0 0 unless ($self->post)
438 0 0 if (defined $parm and $parm =~ /^\s*<.*>\s*$/) { }
440 0 0 if ($head) { }
441 0 0 if ($cmd eq 'article') { }
0 0 elsif ($cmd eq 'head') { }
456 0 0 unless ($$self{'_group'})
461 0 0 unless ($ano =~ /^\d+$/)
477 0 0 if ($body) { }
479 0 0 if ($cmd eq 'article') { }
0 0 elsif ($cmd eq 'head') { }
0 0 elsif ($cmd eq 'date') { }
504 0 0 unless ($self->post)
508 0 0 if (article_msgid($msgid))
519 0 0 unless ($self->post)
532 0 0 if ($art = $$self{'_fh'}->read_until_dot) { }
541 0 0 if ($$self{'slave'}) { }
546 0 0 unless ($code =~ /^2/)
557 0 0 if ($sf) { }
569 0 0 unless (NNML::Auth::perm($self, 'create'))
584 0 0 if ($sf)
590 0 0 unless $ent
596 0 0 unless ($code =~ /^2/)
602 0 0 unless rename $spool, "$spool~"
638 0 0 if exists $head{lc $_}
640 0 0 unless ($head{'lines'})
643 0 0 if (not $head{'message-id'}) { }
651 0 0 if $head{$_}
654 0 0 unless (@newsgroups)
659 0 0 if ($extra_group)
666 0 0 if (-f "$dir/$all{$any}")
671 0 0 unless exists $all{$extra_group}
673 0 0 unless (@newsgroups)
676 0 0 if (not $extra_group and article_msgid($head{'message-id'}))
681 0 0 unless ($NNML::Connection::ACTIVE->accept_article(\%head, $head, $body, $create, $file, $extra_group, @newsgroups))
686 0 0 if ($extra_group) { }
688 0 0 if ($all{$extra_group}) { }
709 0 0 if defined $head
711 0 0 unless $head
723 0 0 if (defined $ano)
743 0 0 unless defined $date
744 0 0 if (length $date < 8)
746 0 0 if ($1 > 30) { }
752 0 0 unless (defined $time)
759 0 0 unless defined $sec
763 0 0 if (defined $gmt) { }
768 0 0 if $@ ne ''