| 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 |
18 |
@_ > 1 ? : |
|
120
|
2 |
0 |
if exists $self->{'_socket'} |
|
138
|
6 |
13 |
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 |
17 |
unless $socket->send($msg, 0, $request->{'destination'}) |
|
297
|
0 |
18 |
if length($msg) % 2 |