Branch Coverage

blib/lib/Metabrik/File/Compress.pm
Criterion Covered Total %
branch 0 54 0.0


line true false branch
60 0 0 unless $self->brik_help_run_undef_arg('unzip', $input)
64 0 0 unless my $lines = $self->capture($cmd)
68 0 0 if (/^\s*inflating:\s*([^\s]+)\s*$/)
83 0 0 unless $self->brik_help_run_undef_arg('gunzip', $input)
86 0 0 unless (defined $output)
91 0 0 unless ($gz)
95 0 0 unless my $fw = 'Metabrik::File::Write'->new_from_brik_init($self)
100 0 0 unless ($output =~ m[^/])
104 0 0 unless my $fd = $fw->open($output)
112 0 0 unless (defined $r)
119 0 0 unless ($no_error)
134 0 0 unless $self->brik_help_run_undef_arg('uncompress', $input)
135 0 0 unless $self->brik_help_run_file_not_found('uncompress', $input)
137 0 0 unless my $ft = 'Metabrik::File::Type'->new_from_brik_init($self)
138 0 0 unless my $type = $ft->get_mime_type($input)
140 0 0 if ($type eq 'application/gzip' or $type eq 'application/x-gzip') { }
0 0 elsif ($type eq 'application/zip' or $type eq 'application/vnd.oasis.opendocument.text' or $type eq 'application/java-archive') { }
0 0 elsif ($type eq 'application/x-bzip2') { }
160 0 0 unless $self->brik_help_run_undef_arg('gzip', $input)
161 0 0 unless $self->brik_help_run_file_not_found('gzip', $input)
165 0 0 unless $self->execute($cmd)
177 0 0 unless $self->brik_help_run_undef_arg('bzip2', $input)
180 0 0 unless (defined $output)
186 0 0 unless my $lines = $self->capture($cmd)
198 0 0 unless $self->brik_help_run_undef_arg('bunzip2', $input)
201 0 0 unless (defined $output)
207 0 0 unless my $lines = $self->capture($cmd)