| line |
true |
false |
branch |
|
82
|
0 |
0 |
if (defined $base and length $base) |
|
83
|
0 |
0 |
if ($base =~ /^(([A-Z])[A-Z])[-_A-Z]+\Z/) { } |
|
|
0 |
0 |
elsif (not $base =~ m[^(\w+)://]) { } |
|
90
|
0 |
0 |
unless $base =~ m[/\Z] |
|
91
|
0 |
0 |
unless $ftp_base =~ m[/\Z] |
|
97
|
0 |
0 |
unless ($file ||= $self->{'file'}) |
|
98
|
0 |
0 |
unless my $name = $self->name |
|
99
|
0 |
0 |
unless my $version = $self->version |
|
105
|
0 |
0 |
if $perl =~ / / and defined &Win32::GetShortPathName |
|
108
|
0 |
0 |
if $base |
|
165
|
0 |
0 |
unless defined $url |
|
166
|
0 |
0 |
unless defined $file |
|
172
|
0 |
0 |
if -f $file or $self->get_file('url', "$url$file", 'ftp_url', "$ftp_url$file") |
|
178
|
0 |
0 |
if $self->{'mailto'} and not $quiet |
|
201
|
0 |
0 |
unless -f $file |
|
203
|
0 |
0 |
if (eval {
do {
require Archive::Zip;
1
}
}) { } |
|
|
0 |
0 |
elsif ($self->can_run('unzip')) { } |
|
205
|
0 |
0 |
unless $zip->read($file) == Archive::Zip::AZ_OK() and $zip->extractTree('', 'blib/') == Archive::Zip::AZ_OK() |
|
208
|
0 |
0 |
if system 'unzip', $file, ('-d', 'blib') |
|
219
|
0 |
0 |
unless open PM_TO_BLIB, '> pm_to_blib' |
|
220
|
0 |
0 |
unless close PM_TO_BLIB |
|
247
|
0 |
0 |
if -f $file |
|
249
|
0 |
0 |
unless (eval {
do {
require PAR::Dist;
'PAR::Dist'->VERSION(0.03)
}
}) |