Branch Coverage

blib/lib/Metabrik/Network/Frame.pm
Criterion Covered Total %
branch 0 72 0.0


line true false branch
71 0 0 unless $self->update_device_info
83 0 0 unless my $nd = "Metabrik::Network::Device"->new_from_brik_init($self)
85 0 0 unless my $device_info = $nd->get($device)
103 0 0 unless $self->brik_help_run_undef_arg("from_read", $frames)
104 0 0 unless my $ref = $self->brik_help_run_invalid_arg("from_read", $frames, "HASH", "ARRAY")
108 0 0 if ($ref eq "HASH")
109 0 0 if (not exists $frames->{'raw'} && exists $frames->{'firstLayer'} && exists $frames->{'timestamp'}) { }
120 0 0 if ($ref ne "ARRAY")
123 0 0 if (@$frames <= 0)
127 0 0 if (ref $first ne "HASH")
130 0 0 unless (exists $first->{'raw'} and exists $first->{'firstLayer'} and exists $first->{'timestamp'})
138 0 0 unless my $simple = "Net::Frame::Simple"->newFromDump($h)
149 0 0 unless $self->brik_help_run_undef_arg("to_read", $frame)
150 0 0 unless my $ref = $self->brik_help_run_invalid_arg("to_read", $frame, "ARRAY", "Net::Frame::Simple")
153 0 0 $ref eq 'ARRAY' ? :
154 0 0 if ($ref eq 'ARRAY') { }
0 0 elsif ($ref eq 'Net::Frame::Simple') { }
156 0 0 if (ref $first eq 'Net::Frame::Simple') { }
188 0 0 unless $self->brik_help_run_undef_arg("from_hexa", $data)
190 0 0 unless my $sh = "Metabrik::String::Hexa"->new_from_brik_init($self)
192 0 0 unless ($sh->is_hexa($data))
196 0 0 unless my $raw = $sh->decode($data)
202 0 0 if ($@)
214 0 0 unless $self->brik_help_run_undef_arg("from_raw", $raw)
223 0 0 unless $self->brik_help_run_undef_arg("show", $frame)
224 0 0 unless $self->brik_help_run_invalid_arg("show", $frame, "Net::Frame::Simple")
238 0 0 unless $self->brik_help_run_undef_arg("mac2eui64", $mac)
292 0 0 unless $self->brik_help_run_undef_arg("ipv4", $dst)
312 0 0 unless $self->brik_help_run_undef_arg("tcp", $dst)
327 0 0 unless $self->brik_help_run_undef_arg("udp", $dst)
361 0 0 unless $self->brik_help_run_undef_arg("frame", $layers)
362 0 0 unless $self->brik_help_run_invalid_arg("frame", $layers, "ARRAY")
375 0 0 unless $self->brik_help_run_undef_arg("is_read", $data)
377 0 0 if (ref $data eq "HASH" and exists $data->{'raw'} and exists $data->{'firstLayer'} and exists $data->{'timestamp'})
391 0 0 unless $self->brik_help_run_undef_arg("is_simple", $data)
393 0 0 if (ref $data eq "Net::Frame::Simple")