Branch Coverage

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'}