Condition Coverage

blib/lib/Net/Traceroute/PurePerl.pm
Criterion Covered Total %
condition 42 105 40.0


and 3 conditions

line !l l&&!r l&&r condition
53 1 0 0 $^O eq 'MSWin32' and $^V eq v5.8.6
121 0 0 0 defined $self->protocol and $self->protocol ne 'icmp'
190 0 0 0 $host and $resolve
194 0 0 0 $host and !$lasthost || $host ne $lasthost
195 0 0 0 $lasthost and $host ne $lasthost
200 0 0 0 defined $time and $time > 0
306 2 2 0 $self->protocol ne 'icmp' and $^O eq 'MSWin32'
354 84 5 110 scalar keys %packets < $self->concurrent_hops and $currenthop <= $self->max_ttl
89 110 0 scalar keys %packets < $self->concurrent_hops and $currenthop <= $self->max_ttl and !$endhop || $currenthop <= $endhop
0 20 90 scalar keys %packets < $self->concurrent_hops and $currenthop <= $self->max_ttl and !$endhop || $currenthop <= $endhop and not $nfound = select(my $rout = $rbits, undef, undef, 0)
402 109 0 78 $nfound and keys %packets
454 0 0 3 $self->protocol eq 'icmp' and $from_type == 0
512 0 0 78 $from_ip and $from_id
526 39 39 0 $self->protocol eq 'udp' and $packets{$id}{'localport'} != $local_port
544 72 0 0 $endhop and $hop == $endhop
560 11 89 9 keys %packets and $nexttimeout < time
573 12 0 0 $endhop and $hop == $endhop
596 102 5 2 $currenthop > $self->max_ttl and not keys %packets
605 0 0 0 $endhop and $hop > $endhop
652 0 2 0 $self->source_address and $self->source_address ne '0.0.0.0'

or 3 conditions

line l !l&&r !l&&!r condition
98 0 1 0 ref $self || $self
192 0 0 0 (gethostbyaddr inet_aton($ip), 2)[0] || $ip
194 0 0 0 !$lasthost || $host ne $lasthost
285 0 0 4 $self->first_ttl < 1 or $self->first_ttl > 255
288 0 0 4 $self->max_ttl < 1 or $self->max_ttl > 255
291 0 0 4 $self->base_port < 1 or $self->base_port > 65280
294 0 0 4 $self->packetlen < 40 or $self->packetlen > 1492
300 0 0 4 $self->queries < 1 or $self->queries > 255
303 0 0 4 $self->concurrent_hops < 1 or $self->concurrent_hops > 255
354 110 0 0 !$endhop || $currenthop <= $endhop
454 72 3 3 $from_type == 11 or $from_type == 3
75 0 3 $from_type == 11 or $from_type == 3 or $self->protocol eq 'icmp' and $from_type == 0
533 74 4 0 not $endhop or $hop <= $endhop
544 6 0 72 $last_hop or $endhop and $hop == $endhop
605 0 0 0 not $hop or $endhop and $hop > $endhop