| 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 |