| perllib/Arch/Tarball.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 0 | unless $dir |
| 44 | 0 | 0 | unless -d $dir and $dir =~ s[^(.+)/(.+)$][$1] |
| 48 | 0 | 0 | if $needed_base_name and $needed_base_name =~ m[/] |
| 51 | 0 | 0 | unless $do_pipe |
| 54 | 0 | 0 | if ($needed_base_name and $needed_base_name ne $base_name) |
| 70 | 0 | 0 | unless my $file = $args{'file'} || $$self{'file'} |
| 73 | 0 | 0 | if $args{'dir'} and not -d $dir |