Branch Coverage

blib/lib/CPAN/Testers/Common/Article.pm
Criterion Covered Total %
branch 51 66 77.2


line true false branch
86 9 5 if $article =~ /=3D/
90 0 14 unless $mail
95 1 13 if $mail->header('In-Reply-To')
99 0 13 unless $subject
100 0 13 if $subject =~ /::/
119 2 1 unless $subject =~ m[CPAN Upload:\s+([-\w/\.\+]+)]i
123 0 1 unless $distvers =~ /\.(?:(?:tar\.|t)(?:gz|bz2)|zip)$/
127 0 1 unless $distvers =~ /\.(?:(?:tar\.|t)gz|zip)$/i
131 0 1 if (@parts == 2)
152 2 10 unless $status =~ /^(PASS|FAIL|UNKNOWN|NA)$/i
160 10 0 unless $distversion =~ /\.(tar|tgz|zip)/
164 1 9 unless defined $dist
165 1 8 unless defined $version
170 0 8 if $encoding and $encoding eq 'base64'
177 3 5 if $archname
186 3 5 unless ($archname or $platform)
187 1 2 if ($osname and $osvers) { }
1 1 elsif ($osname) { }
191 2 6 unless ($osname)
196 2 1 unless $text
197 1 0 if ($text =~ /$patterns/) { }
201 0 0 if ($text =~ /$rx/i)
207 1 0 if $osname
239 0 68 unless $hdr =~ /.*;\s+(.*)\s*$/
241 0 68 if ($dt2 > $date2 + 1200)
260 90 97 if (@fields)
266 3 90 unless $index
272 2 88 unless $fields{'mon'} and $fields{'year'} > 1998
297 15 26 if defined $rev
300 7 15 unless defined $rev
311 1 14 if ($head and $head =~ /v5\.\d+\.\d+ (RC\d+)/)
312 0 1 if $extra
317 3 12 if $extra