Branch Coverage

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


line true false branch
17 0 0 unless defined $user
18 0 0 unless defined $password
40 0 0 if $mode > 1
56 0 0 unless open my $fh, "<:raw", $filename
75 0 0 unless ($result->{'success'})
76 0 0 $result->{'status'} == 599 ? :
85 0 1 unless -r $filename
88 0 1 if (eval { do { require Config::Identity } }) { }
90 0 0 unless $conf{'user'}
93 0 1 unless open my $pauserc, "<", $filename
97 0 2 if /BEGIN PGP MESSAGE/
99 0 2 if not length $_ or $_ =~ /^\s*#/
101 2 0 if (my($k, $v) = / ^ \s* (user|password) \s+ (.+?) \s* $ /x)
102 0 2 if $conf{$k}