Branch Coverage

blib/lib/IO/Socket/Packet.pm
Criterion Covered Total %
branch 15 58 25.8


line true false branch
108 0 3 unless $self->socket(17, $type, 0)
113 0 3 if exists $$arg{'Protocol'}
114 2 1 if exists $$arg{'IfIndex'}
116 1 2 if (not defined $ifindex and exists $$arg{'IfName'})
118 0 1 unless defined $ifindex
121 0 3 defined $protocol ? :
0 3 unless $self->bind(pack_sockaddr_ll(defined $protocol ? $protocol : 3, $ifindex || 0, 0, 0, ''))
160 0 0 if (defined ${*$self;}{'packet_rx_ring'})
161 0 0 unless defined $self->wait_ring_frame(my $buffer, \my(%info))
179 0 0 unless my($addr, $len) = $self->recv_len(@_)
249 0 1 if (defined ${*$self;}{'packet_ts_sec'})
253 0 0 wantarray ? :
277 0 0 if (defined ${*$self;}{'packet_ts_sec'})
281 0 0 wantarray ? :
311 0 1 if (ref $self) { }
315 0 1 unless socket $sock, 2, 1, 0
337 0 2 if (ref $self) { }
341 0 2 unless socket $sock, 2, 1, 0
357 0 0 if (@_) { }
381 0 0 unless defined $ifindex
399 0 0 unless defined $ifindex
417 0 0 unless defined $ifindex
419 0 0 $value ? :
435 0 0 unless defined $ifindex
437 0 0 $value ? :
455 0 1 unless my $stats = $self->getsockopt(263, 6)
504 0 0 if defined $ret
552 0 0 unless $self->blocking
556 0 0 unless select $rvec, undef, undef, undef