| 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 {
|
|
|
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 {
|