Branch Coverage

blib/lib/CPAN/Upload/Tiny.pm
Criterion Covered Total %
branch 7 28 25.0


line true false branch
16 0 0 unless defined $user
17 0 0 unless defined $password
42 0 0 if $mode > 1 and $has_readkey
58 0 0 unless open my $fh, '<:raw', $filename
77 0 0 unless ($result->{'success'})
78 0 0 $result->{'status'} == 599 ? :
87 0 1 unless -r $filename
90 0 1 if (eval { do { require Config::Identity } }) { }
92 0 0 unless $conf{'user'}
95 0 1 unless open my $pauserc, '<', $filename
99 0 2 if /BEGIN PGP MESSAGE/
101 0 2 if not length $_ or $_ =~ /^\s*#/
103 2 0 if (my($k, $v) = / ^ \s* (user|password) \s+ (.+?) \s* $ /x)
104 0 2 if $conf{$k}