Branch Coverage

blib/lib/Net/Server/POP3proxy.pm
Criterion Covered Total %
branch 0 158 0.0


line true false branch
57 0 0 unless $$self{'listening_socket'}
68 0 0 if ($$self{'read_sockets'}->count <= 1 and $$self{'write_sockets'}->count == 0) { }
80 0 0 unless $$self{'read_sockets'}->count or $$self{'write_sockets'}->count
88 0 0 if ($socket == $$self{'listening_socket'}) { }
93 0 0 if (defined $$self{'client_peers'}{$socket}) { }
0 0 elsif (defined $$self{'server_peers'}{$socket}) { }
106 0 0 unless ($socket and $socket->connected)
114 0 0 if ($$self{'write_buffer'}{$socket})
119 0 0 unless ($socket and $socket->connected)
134 0 0 unless $$self{'write_buffer'}{$socket}
137 0 0 unless (my $wrote = syswrite($socket, $$self{'write_buffer'}{$socket}, length $$self{'write_buffer'}{$socket}))
145 0 0 if (defined $$self{'client_peers'}{$socket}) { }
0 0 elsif (defined $$self{'server_peers'}{$socket}) { }
159 0 0 if (length $$self{'write_buffer'}{$socket} == 0)
165 0 0 if ($$self{'write_disconnect'}{$socket})
168 0 0 if (defined $$self{'client_peers'}{$socket}) { }
0 0 elsif (defined $$self{'server_peers'}{$socket}) { }
188 0 0 if $new_sock
189 0 0 unless $new_sock
207 0 0 unless $self->doread($socket)
216 0 0 unless $$self{'read_buffer'}{$socket}
218 0 0 if ($$self{'read_buffer'}{$socket} =~ /\x0D\x0A?$/s) { }
223 0 0 if (@workbuffer == 0)
233 0 0 if ($line =~ /^USER\s+([^\%]+)\%(.+)$/i) { }
0 0 elsif ($line =~ /^QUIT/i) { }
0 0 elsif ($line =~ /^SHUTDOWN/i) { }
238 0 0 unless ($remotehost =~ /:\d+$/)
244 0 0 if (not $remote) { }
296 0 0 unless $self->doread($socket)
306 0 0 if (defined $$self{'client_peers'}{$socket})
308 0 0 if ($$self{'write_buffer'}{$$self{'client_peers'}{$socket}}) { }
327 0 0 unless $$self{'read_buffer'}{$socket}
330 0 0 if ($$self{'read_buffer'}{$socket} =~ /\x0D\x0A?$/s) { }
335 0 0 if (@workbuffer == 0) { }
349 0 0 if ($command and $command =~ /^AUTH$/i)
355 0 0 if ($command and $command =~ /^USER/i)
361 0 0 if $command
378 0 0 unless $self->doread($socket)
388 0 0 if (defined $$self{'server_peers'}{$socket})
389 0 0 if ($$self{'write_buffer'}{$$self{'server_peers'}{$socket}}) { }
407 0 0 unless $$self{'read_buffer'}{$socket}
410 0 0 if ($$self{'read_buffer'}{$socket} =~ /\x0D\x0A?$/s) { }
421 0 0 if ($line =~ /^(\+OK|-ERR)/i and not $$self{'reading_multiline'}{$socket}) { }
0 0 elsif ($line =~ /^\.$/) { }
425 0 0 if ($$self{'waiting_user'}{$socket})
440 0 0 if ($$self{'snarfing'}{$socket})
445 0 0 if (substr($line, 0, 1) eq '+' and defined $command)
447 0 0 if ($command =~ /^TOP$/i)
453 0 0 if ($command =~ /RETR/i)
460 0 0 if ($command =~ /CAPA/i)
473 0 0 if ($$self{'snarfing'}{$socket})
476 0 0 if ($$self{'snarfing'}{$socket} == 2) { }
0 0 elsif ($$self{'snarfing'}{$socket} == 1) { }
0 0 elsif ($$self{'snarfing'}{$socket} == 3) { }
477 0 0 unless (defined $$self{'message'}{$socket})
481 0 0 if ($$self{'MaxSize'} == 0 or length $$self{'message'}{$socket} < $$self{'MaxSize'}) { }
522 0 0 if ($$self{'snarfing'}{$socket}) { }
541 0 0 if ($force)
550 0 0 if (not $force) { }
551 0 0 if (defined $$self{'client_peers'}{$socket}) { }
0 0 elsif (defined $$self{'server_peers'}{$socket}) { }
568 0 0 if (not $force) { }
569 0 0 if (defined $$self{'client_peers'}{$socket}) { }
0 0 elsif (defined $$self{'server_peers'}{$socket}) { }
0 0 elsif ($socket == $$self{'listening_socket'}) { }
589 0 0 if (ref $message eq 'SCALAR') { }
594 0 0 unless $$self{'write_sockets'}->exists($socket)
601 0 0 unless $$self{'read_buffer'}{$socket}
623 0 0 unless $socket
628 0 0 if (exists $$self{'server_peers'}{$socket})
629 0 0 if (exists $$self{'client_peers'}{$socket})
630 0 0 if (exists $$self{'read_buffer'}{$socket})
631 0 0 if (exists $$self{'write_buffer'}{$socket})
632 0 0 if (exists $$self{'reading_multiline'}{$socket})
633 0 0 if (exists $$self{'command_queue'}{$socket})
634 0 0 if (exists $$self{'write_disconnect'}{$socket})
635 0 0 if (exists $$self{'snarfing'}{$socket})
636 0 0 if (exists $$self{'message'}{$socket})
640 0 0 if $socket