| line |
true |
false |
branch |
|
28
|
2 |
0 |
unless defined $interval |
|
31
|
1 |
1 |
unless defined $timeout |
|
34
|
2 |
0 |
unless (defined $packet_generator) |
|
36
|
2 |
0 |
unless defined $packet_size |
|
50
|
0 |
2 |
unless my $socket = 'IO::Socket::INET'->new('Proto', 'icmp', 'Type', 3, 'Blocking', 0) |
|
58
|
1 |
1 |
if (my $on_prepare = $args{'on_prepare'}) |
|
77
|
0 |
13 |
@_ > 1 ? : |
|
79
|
0 |
19 |
@_ > 1 ? : |
|
119
|
2 |
0 |
if exists $$self{'_socket'} |
|
138
|
8 |
11 |
if exists $$self{'_poll_write'} |
|
170
|
24 |
24 |
if ($type == $ICMP_ECHOREPLY) { } |
|
|
0 |
24 |
elsif ($type == $ICMP_DEST_UNREACH or $type == $ICMP_TIME_EXCEEDED) { } |
|
188
|
7 |
17 |
unless $request |
|
191
|
0 |
17 |
unless $sequence == @{$$request{'results'};} + 1 |
|
193
|
17 |
0 |
if ($type == $ICMP_ECHOREPLY) { } |
|
|
0 |
0 |
elsif ($type == $ICMP_DEST_UNREACH) { } |
|
|
0 |
0 |
elsif ($type == $ICMP_TIME_EXCEEDED) { } |
|
196
|
17 |
0 |
if ($data eq $$request{'data'}) { } |
|
221
|
5 |
13 |
if (@$results == $$request{'times'} or $result eq 'ERROR') { } |
|
226
|
5 |
0 |
if ($$tasks[$i] == $request) |
|
284
|
1 |
18 |
unless $socket->send($msg, 0, $$request{'destination'}) |
|
297
|
0 |
19 |
if length($msg) % 2 |