| line |
true |
false |
branch |
|
22
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
53
|
0 |
1 |
if ($^O eq 'MSWin32' and $^V eq v5.8.6) |
|
84
|
0 |
1015 |
unless $attr =~ /[^A-Z]/ |
|
85
|
0 |
1015 |
unless exists $Net::Traceroute::PurePerl::net_traceroute_native_var{$attr} |
|
87
|
22 |
993 |
if @_ |
|
112
|
0 |
1 |
if $useicmp |
|
120
|
0 |
1 |
if ($useicmp) |
|
121
|
0 |
0 |
if defined $self->protocol and $self->protocol ne 'icmp' |
|
123
|
0 |
0 |
if $useicmp |
|
127
|
1 |
0 |
if defined $host |
|
128
|
0 |
1 |
unless defined $self->max_ttl |
|
129
|
0 |
1 |
unless defined $self->queries |
|
130
|
0 |
1 |
unless defined $self->base_port |
|
131
|
0 |
1 |
unless defined $self->query_timeout |
|
132
|
0 |
1 |
unless defined $self->packetlen |
|
133
|
0 |
1 |
unless defined $self->first_ttl |
|
134
|
0 |
1 |
unless defined $self->concurrent_hops |
|
137
|
0 |
1 |
unless defined $self->protocol |
|
141
|
1 |
0 |
unless defined $self->use_alarm |
|
156
|
3 |
2 |
if (defined $arg{$var}) |
|
183
|
0 |
0 |
unless ($self->hop_queries($hop)) |
|
190
|
0 |
0 |
if ($host and $resolve) |
|
194
|
0 |
0 |
if ($host and !$lasthost || $host ne $lasthost) |
|
195
|
0 |
0 |
if $lasthost and $host ne $lasthost |
|
200
|
0 |
0 |
if (defined $time and $time > 0) { } |
|
224
|
0 |
3 |
unless defined $self->host |
|
232
|
1 |
2 |
unless defined $destination |
|
247
|
0 |
2 |
unless socket $icmpsocket, 2, 3, getprotobyname 'icmp' |
|
282
|
1 |
4 |
unless exists $Net::Traceroute::PurePerl::protocols{$self->protocol} |
|
285
|
0 |
4 |
if $self->first_ttl < 1 or $self->first_ttl > 255 |
|
288
|
0 |
4 |
if $self->max_ttl < 1 or $self->max_ttl > 255 |
|
291
|
0 |
4 |
if $self->base_port < 1 or $self->base_port > 65280 |
|
294
|
0 |
4 |
if $self->packetlen < 40 or $self->packetlen > 1492 |
|
297
|
0 |
4 |
if $self->first_ttl > $self->max_ttl |
|
300
|
0 |
4 |
if $self->queries < 1 or $self->queries > 255 |
|
303
|
0 |
4 |
if $self->concurrent_hops < 1 or $self->concurrent_hops > 255 |
|
306
|
0 |
4 |
if $self->protocol ne 'icmp' and $^O eq 'MSWin32' |
|
380
|
2 |
88 |
unless $nexttimeout |
|
385
|
30 |
60 |
if ($currentquery == 0) |
|
392
|
89 |
20 |
unless ($nfound) |
|
397
|
80 |
9 |
if $timeout > 0.1 |
|
421
|
78 |
0 |
if (defined $from_saddr) { } |
|
434
|
0 |
78 |
if ($from_proto != getprotobyname 'icmp') |
|
445
|
0 |
78 |
unless ($icmp_data) |
|
454
|
6 |
0 |
if ($from_type == 11 or $from_type == 3 or $self->protocol eq 'icmp' and $from_type == 0) |
|
462
|
39 |
39 |
if ($self->protocol eq 'udp') { } |
|
|
39 |
0 |
elsif ($self->protocol eq 'icmp') { } |
|
475
|
3 |
36 |
$from_type == 3 ? : |
|
478
|
3 |
36 |
if ($from_type == 0) { } |
|
484
|
0 |
3 |
unless $icmp_id == $$ |
|
497
|
0 |
36 |
unless $icmp_id == $$ |
|
503
|
36 |
0 |
if ($ptype eq 8) |
|
512
|
78 |
0 |
if ($from_ip and $from_id) |
|
514
|
0 |
78 |
unless ($id) |
|
519
|
0 |
78 |
unless (exists $packets{$id}) |
|
524
|
78 |
0 |
if ($packets{$id}{'id'} == $from_id) |
|
526
|
0 |
78 |
if $self->protocol eq 'udp' and $packets{$id}{'localport'} != $local_port |
|
533
|
78 |
0 |
if (not $endhop or $hop <= $endhop) |
|
544
|
6 |
72 |
if ($last_hop or $endhop and $hop == $endhop) |
|
560
|
9 |
100 |
if (keys %packets and $nexttimeout < time) |
|
566
|
12 |
9 |
if ($packets{$id}{'timeout'} < time) { } |
|
|
9 |
0 |
elsif (not defined $nexttimeout) { } |
|
573
|
0 |
12 |
if ($endhop and $hop == $endhop) |
|
596
|
2 |
107 |
if ($currenthop > $self->max_ttl and not keys %packets) { } |
|
|
0 |
107 |
elsif ($end >= $self->queries) { } |
|
605
|
0 |
0 |
if (not $hop or $endhop and $hop > $endhop) |
|
611
|
0 |
0 |
unless (keys %packets) |
|
632
|
1 |
1 |
if ($self->protocol eq 'icmp') { } |
|
|
1 |
0 |
elsif ($self->protocol eq 'udp') { } |
|
638
|
0 |
1 |
unless socket $socket, 2, 2, getprotobyname 'udp' |
|
644
|
0 |
2 |
if ($self->device) |
|
645
|
0 |
0 |
unless setsockopt $socket, 1, 25, pack('Z*', $self->device) |
|
652
|
0 |
2 |
if ($self->source_address and $self->source_address ne '0.0.0.0') |
|
667
|
0 |
0 |
unless defined $ip |
|
670
|
0 |
0 |
unless bind $socket, sockaddr_in(0, $ip) |
|
685
|
45 |
45 |
if ($self->protocol eq 'icmp') { } |
|
|
45 |
0 |
elsif ($self->protocol eq 'udp') { } |
|
728
|
45 |
45 |
unless $chksum |
|
761
|
90 |
45 |
if ($self->protocol eq 'udp') |
|
770
|
90 |
45 |
if ($self->protocol eq 'udp') |
|
776
|
45 |
90 |
$self->protocol eq 'icmp' ? : |
|
800
|
0 |
45 |
if $len_msg % 2 |