Branch Coverage

blib/lib/CPAN/Testers/Common/Article.pm
Criterion Covered Total %
branch 56 66 84.8


line true false branch
86 10 8 if $article =~ /=3D/
91 0 18 unless $mail
96 2 16 if $mail->header('In-Reply-To')
100 2 14 unless $subject
101 1 13 if $subject =~ /::/
120 3 7 unless $subject =~ m[CPAN Upload:\s+([-\w/\.\+]+)]i
124 2 5 unless $distvers =~ /\.(?:(?:tar\.|t)(?:gz|bz2)|zip)$/
128 1 4 unless $distvers =~ /\.(?:(?:tar\.|t)gz|zip)$/i
132 1 4 if (@parts == 2)
153 2 10 unless $status =~ /^(PASS|FAIL|UNKNOWN|NA)$/i
161 10 0 unless $distversion =~ /\.(tar|tgz|zip)/
165 1 9 unless defined $dist
166 1 8 unless defined $version
171 0 8 if $encoding and $encoding eq 'base64'
178 3 5 if $archname
187 3 5 unless ($archname or $platform)
188 1 2 if ($osname and $osvers) { }
1 1 elsif ($osname) { }
192 2 6 unless ($osname)
197 2 1 unless $text
198 1 0 if ($text =~ /$patterns/) { }
202 0 0 if ($text =~ /$rx/i)
208 1 0 if $osname
240 0 68 unless $hdr =~ /.*;\s+(.*)\s*$/
242 0 68 if ($dt2 > $date2 + 1200)
261 90 97 if (@fields)
267 3 90 unless $index
273 2 88 unless $fields{'mon'} and $fields{'year'} > 1998
298 15 26 if defined $rev
301 7 15 unless defined $rev
312 1 14 if ($head and $head =~ /v5\.\d+\.\d+ (RC\d+)/)
313 0 1 if $extra
318 3 12 if $extra