| line |
true |
false |
branch |
|
109
|
1 |
0 |
if ($self->dist_file) { } |
|
|
0 |
0 |
elsif ($self->dist_dir) { } |
|
111
|
0 |
1 |
unless ($self->dist_file =~ /\.(?:zip|tgz|tar\.gz)$/) |
|
114
|
0 |
1 |
unless (-f $self->dist_file) |
|
119
|
0 |
1 |
if ($self->dist_dir) { } |
|
121
|
0 |
0 |
if (-d $self->dist_dir) |
|
135
|
0 |
1 |
unless (-d $self->dist_dir and -w $self->dist_dir) |
|
141
|
0 |
1 |
unless my $archive = 'Archive::Extract'->new('archive', $self->dist_file) |
|
146
|
0 |
1 |
unless ($archive->extract('to', $self->dist_dir)) |
|
153
|
1 |
0 |
if ($archive->extract_path ne $self->dist_dir) |
|
162
|
0 |
0 |
unless (-d $self->dist_dir) |