Branch Coverage

blib/lib/POE/Component/Client/POP3.pm
Criterion Covered Total %
branch 1 106 0.9


line true false branch
21 1 0 unless defined &DEBUG
35 0 0 if @_ & 1
40 0 0 unless defined $alias
45 0 0 unless defined $auth
48 0 0 unless defined $remote_addr
52 0 0 unless defined $remote_port
58 0 0 unless defined $events and ref $events eq 'ARRAY'
61 0 0 if (ref $opt eq 'HASH') { }
143 0 0 if ($errnum == 0) { }
176 0 0 if (defined &{"comm_$action";}) { }
194 0 0 if $input =~ /<([^>]+)>/
197 0 0 if (defined $$heap{'user'} and defined $$heap{'pass'})
208 0 0 if (trans_error($input))
222 0 0 if (trans_error($input))
238 0 0 if (trans_error($input))
251 0 0 if (trans_error($input))
265 0 0 if ($$args{'listing_one'} or not $$args{'got_first_line'})
270 0 0 if (trans_error($input))
275 0 0 if (delete $$args{'listing_one'}) { }
279 0 0 if (not $$args{'got_first_line'}) { }
0 0 elsif ($input eq '.') { }
302 0 0 if (not $$args{'got_first_line'}) { }
0 0 elsif ($input eq '.') { }
303 0 0 if (trans_error($input))
311 0 0 if (defined $$args{'handle'}) { }
331 0 0 if (defined $$args{'handle'}) { }
347 0 0 if (trans_error($input))
375 0 0 if defined $type
376 0 0 unless defined $$heap{'auth'}
378 0 0 unless defined $$heap{'user'}
379 0 0 unless defined $$heap{'user'}
380 0 0 unless defined $$heap{'pass'}
381 0 0 unless defined $$heap{'pass'}
383 0 0 if ($$heap{'auth'} eq 'APOP') { }
0 0 elsif ($$heap{'auth'} eq 'PASS') { }
384 0 0 unless (defined $$heap{'apop_id'})
396 0 0 if $@
435 0 0 if ($num) { }
451 0 0 unless defined $num
470 0 0 unless defined $num
523 0 0 unless defined $msg_num
531 0 0 if (defined $lines) { }
555 0 0 if ($num) { }
575 0 0 if (ref $opt eq 'HASH') { }
599 0 0 if not keys %{$$heap{'events'}{$sender};}
607 0 0 if ($$heap{'state'} != 1)
616 0 0 if ($$heap{'state'} != 0)
632 0 0 unless defined $$heap{'rw_wheel'}
634 0 0 unless ref $cmd_args eq 'ARRAY'
636 0 0 unless defined $state
649 0 0 if (exists $$heap{'events'}{$session}{$event} or exists $$heap{'events'}{$session}{'all'})
667 0 0 if $input
675 0 0 if $input