Branch Coverage

blib/lib/CPAN/Uploader.pm
Criterion Covered Total %
branch 0 68 0.0


line true false branch
51 0 0 if $arg and ref $self
54 0 0 unless -f $file
57 0 0 unless ref $self or $arg
60 0 0 if $arg
62 0 0 if ($arg->{'dry_run'}) { }
72 0 0 $retries > 0 ? :
75 0 0 if eval { do { $self->_upload($file); 1 } }
76 0 0 if $@ =~ /request failed with error code 5/
78 0 0 if ($try <= $tries)
80 0 0 if ($tries and $try < $tries)
84 0 0 if $self->{'retry_delay'}
86 0 0 if ($try >= $tries)
96 0 0 defined $class->VERSION ? :
101 0 0 unless +(shift())->{'upload_uri'}
102 0 0 unless +(shift())->{'target'}
114 0 0 if $self->{'http_proxy'}
121 0 0 $self->{'subdir'} ? :
124 0 0 if ($file =~ m[^https?://]) { }
152 0 0 $ENV{'CPAN_UPLOADER_DISPLAY_HTTP_BODY'} ? :
166 0 0 unless (defined $response)
170 0 0 if ($response->is_error) { }
171 0 0 if ($response->code == 404) { }
228 0 0 unless (defined $filename)
231 0 0 $^O eq 'MSWin32' && "$]" < 5.016 ? :
234 0 0 unless -e $filename and -r _
238 0 0 if (eval { do { require Config::Identity } }) { }
240 0 0 unless $conf{'user'}
243 0 0 unless open my $pauserc, "<", $filename
248 0 0 if (/BEGIN PGP MESSAGE/)
253 0 0 unless $_ and not $_ =~ /^\s*#/
256 0 0 if $conf{$k}
263 0 0 if defined $conf{'user'} and $conf{'user'} =~ /\s$/
265 0 0 if defined $conf{'user'} and $conf{'user'} =~ /\s/
294 0 0 unless $self->{'debug'}