| blib/lib/CPAN/Recent/Uploads/Retriever.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 1 | unless $self->{'uri'} and $self->{'uri'}->scheme and $self->{'uri'}->scheme =~ /^(http|ftp)$/i |
| 25 | 0 | 1 | unless $self->{'time'} and grep {$_ eq $self->{'time'};} @times |
| 32 | 0 | 1 | unless open my $fooh, '>', \$self->{'foo'} |
| 36 | 1 | 0 | if $resp->{'success'} |