Branch Coverage

blib/lib/Metabrik/Lookup/Tcpoption.pm
Criterion Covered Total %
branch 0 30 0.0


line true false branch
51 0 0 unless my $cw = "Metabrik::Client::Www"->new_from_brik_init($self)
52 0 0 unless my $files = $cw->mirror($url, $file, $datadir)
53 0 0 if (@$files == 0)
58 0 0 unless my $ft = "Metabrik::File::Text"->new_from_brik_init($self)
61 0 0 unless my $text = $ft->read($output)
81 0 0 unless $self->brik_help_run_file_not_found("load", $input)
83 0 0 unless my $data = $self->read($input)
92 0 0 unless $self->brik_help_run_undef_arg("from_dec", $dec)
95 0 0 unless (defined $data)
100 0 0 if ($this->{'Kind'} == $dec)
113 0 0 unless $self->brik_help_run_undef_arg("from_hex", $hex)
124 0 0 unless $self->brik_help_run_undef_arg("from_string", $string)
127 0 0 unless (defined $data)
133 0 0 unless length $this->{'Kind'}
135 0 0 if ($meaning =~ /$string/i)