Condition Coverage

blib/lib/Net/Traceroute/PurePerl.pm
Criterion Covered Total %
condition 47 105 44.7


and 3 conditions

line !l l&&!r l&&r condition
54 1 0 0 $^O eq 'MSWin32' and $^V eq v5.8.6
131 0 0 0 defined $self->protocol and $self->protocol ne 'icmp'
207 0 0 0 $host and $resolve
212 0 0 0 $host and !$lasthost || $host ne $lasthost
214 0 0 0 $lasthost and $host ne $lasthost
219 0 0 0 defined $time and $time > 0
329 2 2 0 $self->protocol ne 'icmp' and $^O eq 'MSWin32'
377 87 34 103 scalar keys %packets < $self->concurrent_hops and $currenthop <= $self->max_ttl
121 103 0 scalar keys %packets < $self->concurrent_hops and $currenthop <= $self->max_ttl and !$endhop || $currenthop <= $endhop
0 13 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)
424 134 0 75 $nfound and keys %packets
478 0 0 3 $self->protocol eq 'icmp' and $from_type == 0
528 0 0 75 $from_ip and $from_id
543 39 36 0 $self->protocol eq 'udp' and $packets{$id}{'localport'} != $local_port
561 68 1 0 $endhop and $hop == $endhop
577 11 109 14 keys %packets and $nexttimeout < time
593 12 3 0 $endhop and $hop == $endhop
616 98 34 2 $currenthop > $self->max_ttl and not keys %packets
627 0 94 0 $endhop and $hop > $endhop
679 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
108 0 1 0 ref $self || $self
210 0 0 0 (gethostbyaddr inet_aton($ip), 2)[0] || $ip
212 0 0 0 !$lasthost || $host ne $lasthost
308 0 0 4 $self->first_hop < 1 or $self->first_hop > 255
311 0 0 4 $self->max_ttl < 1 or $self->max_ttl > 255
314 0 0 4 $self->base_port < 1 or $self->base_port > 65280
317 0 0 4 $self->packetlen < 40 or $self->packetlen > 1492
323 0 0 4 $self->queries < 1 or $self->queries > 255
326 0 0 4 $self->concurrent_hops < 1 or $self->concurrent_hops > 255
377 102 1 0 !$endhop || $currenthop <= $endhop
478 69 3 3 $from_type == 11 or $from_type == 3
72 0 3 $from_type == 11 or $from_type == 3 or $self->protocol eq 'icmp' and $from_type == 0
550 70 5 0 not $endhop or $hop <= $endhop
561 6 0 69 $last_hop or $endhop and $hop == $endhop
627 0 0 94 not $hop or $endhop and $hop > $endhop