Branch Coverage

blib/lib/Mail/POP3/Server.pm
Criterion Covered Total %
branch 42 104 40.3


line true false branch
108 1 0 unless $^O =~ /MSWin32/
120 1 0 if $self->{'CONFIG'}{'debug'} == 1
121 0 1 unless $was_ok
123 1 0 if ($self->{'CONFIG'}{'debug'} and $self->{'CONFIG'}{'debug'} == 1)
139 56 0 unless ($^O =~ /MSWin32/)
142 0 56 unless $select->can_read($self->{'CONFIG'}{'timeout'})
146 0 56 if ($@) { }
147 0 0 if $@ eq "alarm\n"
149 0 56 unless defined $char
150 8 48 if $char eq "\n"
156 0 8 unless defined $char
163 3 5 unless defined $arg
164 7 1 unless defined $arg1
168 0 8 unless ($COMMAND2FUNC{$command})
169 0 0 if $self->{'CONFIG'}{'debug'} == 1
172 0 5 unless ($COMMAND2OKNOLOGIN{$command} or $self->{'PASSWORD_GIVEN'})
184 1 0 if ($self->{'CONFIG'}{'addreceived'}{$user_name})
197 0 1 unless $self->{'CONFIG'}{'user_check'}->($self->{'CONFIG'}, $user_name, $self->{'CLIENT_FQDN'})
205 0 1 if ($self->{'MAILBOX_OPENED'})
209 0 1 unless ($self->{'CLIENT_USERNAME'})
220 0 1 unless ($self->{'PASSWORD_GIVEN'})
238 0 0 if (not $self->{'CONFIG'}{'retry_on_lock'} or $self->{'CONFIG'}{'retry_on_lock'} == $lockcnt)
275 0 0 if ($arg)
276 0 0 unless ($self->{'MAILBOX'}->is_valid($arg))
285 0 0 unless ($self->{'MAILBOX'}->is_deleted($_))
295 0 1 unless ($self->{'MAILBOX'}->is_valid($arg))
309 0 1 unless ($self->{'MAILBOX'}->is_valid($arg))
331 0 2 if ($arg)
332 0 0 unless ($self->{'MAILBOX'}->is_valid($arg))
347 0 1 unless ($self->{'MAILBOX'}->is_valid($arg))
351 0 1 unless ($arg1 >= 0)
368 1 0 unless ($self->{'CONFIG'}{'user_debug'}{$self->{'CLIENT_USERNAME'}})
370 0 1 if ($@)
374 0 0 if $self->{'CONFIG'}{'debug'} == 1
389 0 0 if $self->{'CONFIG'}{'debug'} == 1
390 0 0 if ($self->{'CONFIG'}{'reject_bogus_user'} == 1) { }
424 1 0 unless defined $self->{'CONFIG'}{'user_log'}{$user_name}
425 0 0 unless (-d $self->{'CONFIG'}{'user_log_dir'})
449 1 0 unless $self->{'USERLOG_FH'} and defined $self->{'CONFIG'}{'user_log'}{$self->{'CLIENT_USERNAME'}}
464 0 0 unless $self->{'USERLOG_FH'} and $self->{'CONFIG'}{'user_log'}{$self->{'CLIENT_USERNAME'}} and $self->{'CONFIG'}{'user_log'}{$self->{'CLIENT_USERNAME'}} == 2
465 0 0 if ($response =~ /^PASS\s+(.*)/ and $self->{'CONFIG'}{'passsecret'})
482 7 0 unless $log_suppress
493 1 0 if ($signoff) { }
494 0 1 if ($signoff eq 'ALRM') { }
0 1 elsif ($signoff eq 'USR1') { }
508 1 0 if ($self->{'MAILBOX_OPENED'})
522 0 1 unless defined $self->{'CONFIG'}{'debug_log'}
524 1 0 unless ($self->{'DEBUG_FH'})
526 0 1 unless (-d $debuglog_dir)
529 0 1 unless $self->{'DEBUG_FH'} = 'IO::File'->new(">>$self->{'CONFIG'}{'debug_log'}")
531 0 1 $^O =~ /MSWin32/ ? :
537 0 1 if $self->{'CLIENT_USER_ID'}