Branch Coverage

blib/lib/Metabrik/Network/Write.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
62 0 0 unless $self->brik_help_run_must_be_root("open")
66 0 0 $self->family eq 'ipv6' ? :
70 0 0 $self->protocol eq 'udp' ? :
75 0 0 if ($self->layer == 2) { }
0 0 elsif ($self->layer == 3) { }
0 0 elsif ($self->layer == 4) { }
78 0 0 unless $fd = "Net::Write::Layer2"->new("dev", $arg2)
86 0 0 unless (defined $arg2)
90 0 0 unless $fd = "Net::Write::Layer3"->new("dst", $arg2, "protocol", Net::Write::Layer::NW_IPPROTO_RAW(), "family", $family)
100 0 0 unless (defined $self->target)
104 0 0 unless $fd = "Net::Write::Layer4"->new("dst", $arg2, "protocol", $protocol, "family", $family)
113 0 0 unless $fd->open
125 0 0 unless $self->brik_help_run_undef_arg("open", $fd)
126 0 0 unless $self->brik_help_run_undef_arg("send", $data)
137 0 0 unless (defined $fd)
151 0 0 unless $self->brik_help_run_undef_arg("lsend", $data)
157 0 0 unless $self->open
158 0 0 unless $self->send($data)
171 0 0 unless $self->brik_help_run_undef_arg("nsend", $data)
177 0 0 unless $self->open
178 0 0 unless $self->send($data)
191 0 0 unless $self->brik_help_run_undef_arg("fnsend_reply", $frame)
192 0 0 unless $self->brik_help_run_invalid_arg("fnsend_reply", $frame, "Net::Frame::Simple")
195 0 0 unless (defined $target)
197 0 0 unless (defined $ip)
203 0 0 unless my $nr = "Metabrik::Network::Read"->new_from_brik_init($self)
210 0 0 unless my $in = $nr->open
218 0 0 unless my $out = $self->open
220 0 0 unless $frame->send($out)
224 0 0 if ($reply = $frame->recv($in))