Branch Coverage

blib/lib/Labyrinth/Plugin/CPAN.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
93 0 0 unless defined $prefix
94 0 0 if defined $DBX{$prefix . $autocommit}
97 0 0 unless %hash
100 0 0 if $autocommit
103 0 0 unless $DBX{$prefix . $autocommit}
113 0 0 if -f $Labyrinth::Plugin::CPAN::settings{'cpan_config'}
115 0 0 if ($cfg and $cfg->SectionExists('EXCEPTIONS'))
120 0 0 if ($cfg and $cfg->SectionExists('IGNORE'))
127 0 0 if ($cfg and $cfg->SectionExists('SYMLINKS'))
160 0 0 unless $guid
161 0 0 if $TESTERS{$guid}
167 0 0 if (not @rows and $addr)
171 0 0 unless @rows
173 0 0 if ($rows[0]{'name'}) { }
0 0 elsif ($rows[0]{'email'}) { }
175 0 0 if $rows[0]{'pause'}
190 0 0 unless $addr
192 0 0 unless $address
194 0 0 unless ($TESTER{$address})
196 0 0 unless @rows
209 0 0 if ($Labyrinth::Plugin::CPAN::tvars{'user'}{'name'} =~ /pause:(\w+)/) { }
0 0 elsif ($Labyrinth::Plugin::CPAN::tvars{'user'}{'name'} =~ /imposter:(\d+)/) { }
0 0 elsif ($Labyrinth::Plugin::CPAN::tvars{'user'}{'name'} =~ /imposter:([A-Z]+)/i) { }
226 0 0 unless $name
236 0 0 unless defined $dist and defined $version
244 0 0 unless defined $dist and defined $version
249 0 0 unless $type
250 0 0 if $type eq 'backpan'
277 0 0 @rows ? :
279 0 0 unless $type
280 0 0 if $type eq 'backpan'
289 0 0 if $perls
294 0 0 if $row->[0] and not $row->[0] =~ /patch|RC/i