| blib/lib/MVS/JESFTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 18 | 5.5 |
| line | true | false | branch |
|---|---|---|---|
| 84 | 1 | 0 | unless my $self = 'Net::FTP'->new($host) |
| 86 | 0 | 0 | unless $self->login($logonid, $password) |
| 106 | 0 | 0 | unless $self->quot('SITE', 'FILETYPE=JES JESLRECL=80') |
| 146 | 0 | 0 | if @results = grep(/^$JOB\s+JOB\d+\s+OUTPUT/, $self->dir) |
| 149 | 0 | 0 | @results ? : |
| 182 | 0 | 0 | unless $self->get($JOB) |
| 185 | 0 | 0 | @fails ? : |
| 217 | 0 | 0 | unless $self->delete($JOB) |
| 220 | 0 | 0 | @fails ? : |