| line |
true |
false |
branch |
|
66
|
0 |
1 |
unless my $username = shift()
|
|
75
|
0 |
2 |
unless my $mod = shift()
|
|
79
|
1 |
55 |
if ($name =~ /^$platform\b/i)
|
|
81
|
0 |
1 |
if $platform eq "Mac" and not $name =~ /^$platform\b/
|
|
84
|
0 |
1 |
if $^O =~ /^(?:$OS{$platform})$/
|
|
88
|
1 |
1 |
$specific ? :
|
|
93
|
0 |
0 |
unless my $buffer = shift()
|
|
94
|
0 |
4 |
if ($buffer =~ /No support for OS|OS unsupported/im)
|
|
103
|
3 |
1 |
unless my $buffer = shift()
|
|
105
|
0 |
4 |
if ($buffer =~ /Perl .*? required--this is only .*?/m)
|
|
110
|
1 |
3 |
if ($buffer =~ /ERROR:( perl:)? Version .*?( of perl)? is installed, but we need version >= .*?/m)
|
|
119
|
2 |
5 |
unless my $buffer = shift()
|
|
120
|
0 |
4 |
if ($buffer =~ /(No tests defined( for [\w:]+ extension)?\.)/ and not $buffer =~ /\*\.t/m and not $buffer =~ /test\.pl/m)
|
|
134
|
3 |
0 |
unless my $buffer = shift()
|
|
135
|
0 |
2 |
$buffer =~ /(MAKE [A-Z]+).*/ ? :
|
|
219
|
1 |
1 |
$author && $email ? :
|
|
298
|
1 |
1 |
unless @prq
|
|
314
|
0 |
1 |
$_->is_uptodate('version', $want) ? :
|
|
360
|
0 |
1 |
unless @toolchain
|