| blib/lib/Bio/GMOD/Util/Mirror.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 37 | 13.5 |
| line | l | !l | condition |
|---|---|---|---|
| 121 | 0 | 0 | $self->warning(-'msg', $ftp->message) and return |
| 131 | 0 | 0 | "mkpath failed: $!" && (return) |
| 132 | 0 | 0 | "can't chdir to ${localpath}: $!" && (return) |
| 138 | 0 | 0 | carp(q[can't pwd: ], $ftp->message) and return |
| 139 | 0 | 0 | carp(q[can't cwd: ], $ftp->message) and return |
| 151 | 0 | 0 | carp(q[can't cwd: ], $ftp->message) and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 25 | 0 | 0 | 1 | $host and $path |
| 113 | 0 | 0 | 0 | defined $rtime and defined $rsize |
| 0 | 0 | 0 | defined $rtime and defined $rsize and $ltime >= $rtime | |
| 0 | 0 | 0 | defined $rtime and defined $rsize and $ltime >= $rtime and $lsize == $rsize |
| line | l | !l | condition |
|---|---|---|---|
| 29 | 1 | 0 | $path ||= '/' |
| 30 | 0 | 1 | $user ||= 'anonymous' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 0 | 1 | 0 | $pass ||= "$user\@localhost.localdomain" |
| 36 | 0 | 0 | 1 | 'Net::FTP'->new($host, %transfer_opts) || croak("Can't connect: $@\n") |
| 131 | 0 | 0 | 0 | -d $localpath or mkpath($localpath) |