Branch Coverage

blib/lib/POE/Component/Client/Traceroute.pm
Criterion Covered Total %
branch 104 200 52.0


line true false branch
19 0 1 if ($^O eq 'MSWin32' and $^V eq v5.8.6)
34 0 74 $^O eq 'MSWin32' ? :
68 0 1 if @_ % 2
93 0 1 if ($^O eq 'MSWin32' and not $useicmp)
95 0 0 if DEBUG()
101 0 1 if %params
104 0 1 if $firsthop > 255
108 0 1 if $maxttl > 255
112 0 1 if $packetlen > 1492 or $packetlen < 68
147 0 1 if DEBUG()
166 0 1 unless socket $socket, 2, 3, $proto
169 0 1 if DEBUG_SOCKET()
192 0 2 unless ($event)
194 0 0 if (DEBUG())
199 2 0 if $host
200 0 2 unless $host
206 2 0 if (ref $useroptions eq 'ARRAY') { }
0 0 elsif (defined $useroptions) { }
209 0 2 if @useropts % 2
222 6 16 if exists $uparams{$option}
226 0 2 if %uparams
234 0 2 if $options{'baseport'} > 65279
237 0 2 if $options{'maxttl'} > 255
240 0 2 if $options{'firsthop'} > 255
243 0 2 if $options{'firsthop'} > $options{'maxttl'}
246 0 2 if $options{'packetlen'} > 1492 or $options{'packetlen'} < 68
251 0 2 if ($error) { }
253 0 0 if DEBUG()
264 1 1 if ($options{'perhoppostback'})
270 2 0 if ($options{'timeout'})
289 0 1 if DEBUG()
322 0 2 unless $_[1] eq $_[5]
324 0 2 if DEBUG()
327 1 1 if (not $$session{'options'}{'useicmp'}) { }
0 1 elsif ($$session{'options'}{'device'} or $$session{'options'}{'sourceaddress'} ne '0.0.0.0') { }
331 0 1 unless socket $socket, 2, 2, $proto
339 0 0 unless socket $socket, 2, 3, $proto
347 1 1 if ($socket) { }
1 0 elsif ($$session{'options'}{'useicmp'}) { }
349 0 1 if DEBUG_SOCKET()
351 0 1 if ($$session{'options'}{'device'})
354 0 0 unless setsockopt $socket, 1, 25, pack('Z*', $device)
357 0 0 if DEBUG_SOCKET()
360 0 1 if ($$session{'options'}{'sourceaddress'} and $$session{'options'}{'sourceaddress'} ne '0.0.0.0')
380 0 2 if (not defined $destination) { }
407 0 72 unless $_[1] eq $_[5]
409 2 70 unless (exists $$session{'hop'})
420 27 45 if ($$session{'options'}{'useicmp'}) { }
455 44 1 $$session{'lastport'} ? :
460 45 0 if (not exists $$session{'lastport'} or $$session{'lastport'} != $port)
475 0 72 if DEBUG()
476 27 45 if ($$session{'options'}{'useicmp'}) { }
501 0 70 unless $_[1] eq $_[5]
507 70 0 if (defined $from_saddr) { }
511 0 70 if DEBUG()
515 0 0 if DEBUG()
521 0 70 if ($proto != 1)
524 0 0 if DEBUG()
531 0 70 unless ($icmp_data)
533 0 0 if DEBUG()
537 5 0 if ($type == 11 or $type == 3 or $type == 0)
548 43 27 if ($type != 0 and $rawcode != 8) { }
555 2 41 $type == 3 ? :
559 3 24 if ($type == 0) { }
562 0 3 unless $icmp_id == $$
571 0 3 if ($hop != $$heap{'sessions'}{$trsessionid}{'hop'})
573 0 0 if DEBUG()
581 0 3 if DEBUG()
586 0 24 unless $icmp_id == $$
590 24 0 if ($ptype eq 8)
599 70 0 if ($trsessionid and $from_ip)
602 0 70 if DEBUG()
604 0 70 if ($$session{'options'}{'useicmp'} and $from_port != $$session{'lastseq'} or not $$session{'options'}{'useicmp'} and $from_port != $$session{'lastport'})
608 0 0 if DEBUG()
626 68 2 if ($continue) { }
651 0 2 unless $session
652 0 2 unless $_[1] eq $_[5]
654 0 2 if ($stop)
673 0 2 if DEBUG()
676 2 0 if ($continue) { }
679 2 0 unless ($$session{'options'}{'useicmp'})
701 0 0 if DEBUG()
715 0 0 unless defined $ip
717 0 0 unless bind $socket, sockaddr_in(0, $ip)
720 0 0 if DEBUG_SOCKET()
734 47 27 unless ($$session{'options'}{'useicmp'})
737 0 47 if DEBUG_SOCKET()
741 0 74 if DEBUG_SOCKET()
743 47 27 unless ($$session{'options'}{'useicmp'})
762 24 48 if ($currentquery + 1 == $$session{'options'}{'queries'})
764 15 9 if ($$session{'options'}{'perhoppostback'})
780 2 22 if ($$session{'hop'} > $$session{'options'}{'maxttl'} or $$session{'stop'})
782 2 0 $$session{'stop'} ? :
803 2 0 if (defined $session)
808 24 0 if $rows[0]{'routerip'}
835 16 60 if (exists $row{'routerip'} and $routerip and $row{'routerip'} and $row{'routerip'} ne $routerip)
839 0 16 if DEBUG()
851 57 60 unless $row{'routerip'}
854 33 6 if (@results)
884 0 27 if $len_msg % 2