| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless ($file) |
|
70
|
0 |
0 |
unless (-e $file) |
|
71
|
0 |
0 |
unless open my $fh, ">$file" |
|
126
|
0 |
1 |
@_ ? : |
|
139
|
0 |
3 |
@_ ? : |
|
151
|
1 |
0 |
if (/\A([a-z0-9]{4})\.pdb\z/i) |
|
174
|
0 |
1 |
if ($pkg->cache) |
|
178
|
1 |
0 |
unless ($pkg->cache and $store = 'IO::File'->new($local_path)) |
|
180
|
1 |
0 |
if ($ftp = 'Net::FTP'->new($pkg->ftp, 'Debug', 0) and $ftp->login('anonymous', '-anonymous@') and $ftp->cwd(join('', map("/$_", @dir)))) |
|
184
|
0 |
0 |
unless $pkg->cache and File::Path::mkpath($dir) and $store = 'IO::File'->new($local_path, '+>') |
|
187
|
1 |
0 |
if ($ftp->get($file, $store)) { } |
|
192
|
0 |
0 |
if $pkg->cache |
|
197
|
1 |
0 |
if ($store) |
|
199
|
1 |
0 |
if (open my $fh, ">$filename") |