| line |
true |
false |
branch |
|
52
|
0 |
0 |
unless my $cw = 'Metabrik::Client::Www'->new_from_brik_init($self) |
|
53
|
0 |
0 |
unless my $files = $cw->mirror($url, "$output.gz", $datadir) |
|
56
|
0 |
0 |
if (@$files > 0) |
|
57
|
0 |
0 |
unless my $fc = 'Metabrik::File::Compress'->new_from_brik_init($self) |
|
58
|
0 |
0 |
unless $fc->uncompress($datadir . "/$output.gz", $output, $datadir) |
|
61
|
0 |
0 |
unless my $ft = 'Metabrik::File::Text'->new_from_brik_init($self) |
|
64
|
0 |
0 |
unless my $text = $ft->read($datadir . '/' . $output) |
|
84
|
0 |
0 |
unless $self->brik_help_run_file_not_found('load', $input) |
|
86
|
0 |
0 |
unless my $data = $self->read($input) |
|
95
|
0 |
0 |
unless $self->brik_help_run_undef_arg('from_dec', $dec) |
|
98
|
0 |
0 |
unless (defined $data) |
|
103
|
0 |
0 |
if ($this->{'Port Number'} == $dec) |
|
116
|
0 |
0 |
unless $self->brik_help_run_undef_arg('from_hex', $hex) |
|
127
|
0 |
0 |
unless $self->brik_help_run_undef_arg('from_string', $string) |
|
130
|
0 |
0 |
unless (defined $data) |
|
136
|
0 |
0 |
unless length $this->{'Port Number'} |
|
138
|
0 |
0 |
if ($service =~ /$string/i) |