Branch Coverage

blib/lib/Metabrik/Lookup/Protocol.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->{'Decimal'} == $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 if ($this->{'Keyword'} =~ /$string/i) { }
0 0 elsif ($this->{'Protocol'} =~ /$string/i) { }