| blib/lib/CPAN/Index/API/Role/Writable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 68 | 0 | 0 | $self->default_location =~ /\.gz$/ ? : |
| 80 | 0 | 1 | unless my $gz = &gzopen($file->stringify, 'wb') |
| 82 | 0 | 1 | if $gz->gzclose |
| 93 | 0 | 0 | $self->tarball_is_default ? : |
| 101 | 6 | 0 | if (defined $file) { } |
| 0 | 0 | elsif (not defined $file and $self->repo_path) { } | |
| 109 | 0 | 0 | if $is_tarball |
| 116 | 0 | 6 | unless -e $file->dir |