| line |
true |
false |
branch |
|
81
|
0 |
7 |
if (my $error = $self->parse) |
|
103
|
2 |
14 |
unless defined $distribution |
|
104
|
2 |
12 |
unless defined $distros{$distribution} |
|
105
|
4 |
8 |
unless defined $version |
|
106
|
2 |
6 |
if $distros{$distribution}{$version} |
|
120
|
2 |
6 |
unless defined $author |
|
121
|
3 |
3 |
unless defined $authors{$author} |
|
136
|
2 |
17 |
unless defined $distribution |
|
137
|
2 |
15 |
unless defined $distros{$distribution} |
|
138
|
3 |
12 |
unless defined $version |
|
139
|
9 |
3 |
if $distros{$distribution}{$version} |
|
156
|
2 |
10 |
unless defined $distribution |
|
157
|
2 |
8 |
unless defined $distros{$distribution} |
|
162
|
2 |
36 |
$@ ? : |
|
164
|
4 |
4 |
if ($author) |
|
166
|
4 |
10 |
if $distros{$distribution}{$version} eq $author |
|
186
|
2 |
14 |
unless defined $distribution |
|
187
|
2 |
12 |
if defined $author and not defined $authors{$author} |
|
189
|
6 |
6 |
if ($author) |
|
194
|
2 |
12 |
$@ ? : |
|
198
|
2 |
4 |
unless defined $distros{$distribution} |
|
204
|
2 |
12 |
$@ ? : |
|
220
|
4 |
3 |
unless ($$self{'file'} and -f $$self{'file'}) |
|
230
|
0 |
4 |
if $@ or not -f $filename |
|
236
|
5 |
2 |
if ($$self{'file'} =~ /\.gz/) { } |
|
248
|
1651656 |
414924 |
unless m[\s(authors/id/[A-Z]/../[^/]+/.*$archive)] |
|
256
|
0 |
414924 |
unless $dist and $dist->dist |
|
268
|
4 |
3 |
if $temp |