Branch Coverage

blib/lib/IO/Socket/Packet.pm
Criterion Covered Total %
branch 14 58 24.1


line true false branch
110 0 3 unless $self->socket(17, $type, 0)
115 0 3 if exists $arg->{'Protocol'}
116 2 1 if exists $arg->{'IfIndex'}
118 1 0 if (not defined $ifindex and exists $arg->{'IfName'})
120 0 1 unless defined $ifindex
123 0 3 defined $protocol ? :
0 3 unless $self->bind(pack_sockaddr_ll(defined $protocol ? $protocol : 3, $ifindex || 0, 0, 0, ''))
167 0 0 if (defined do { *$self }->{'packet_rx_ring'})
168 0 0 unless defined $self->wait_ring_frame(my $buffer, \my %info)
186 0 0 unless my($addr, $len) = $self->recv_len(@_)
266 0 1 if (defined do { *$self }->{'packet_ts_sec'})
270 0 0 wantarray ? :
296 0 0 if (defined do { *$self }->{'packet_ts_sec'})
300 0 0 wantarray ? :
332 0 1 if (ref $self) { }
336 0 1 unless socket $sock, 2, 1, 0
360 0 2 if (ref $self) { }
364 0 2 unless socket $sock, 2, 1, 0
380 0 0 if (@_) { }
406 0 0 unless defined $ifindex
426 0 0 unless defined $ifindex
446 0 0 unless defined $ifindex
448 0 0 $value ? :
466 0 0 unless defined $ifindex
468 0 0 $value ? :
488 0 1 unless my $stats = $self->getsockopt(263, 6)
541 0 0 if defined $ret
593 0 0 unless $self->blocking
597 0 0 unless select $rvec, undef, undef, undef