| 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) |