| line |
true |
false |
branch |
|
69
|
0 |
1 |
unless my $username = shift() |
|
78
|
0 |
2 |
unless my $mod = shift() |
|
82
|
1 |
55 |
if ($name =~ /^$platform\b/i) |
|
84
|
0 |
1 |
if $platform eq 'Mac' and not $name =~ /^$platform\b/ |
|
87
|
0 |
1 |
if $^O =~ /^(?:$OS{$platform})$/ |
|
91
|
1 |
1 |
$specific ? : |
|
96
|
0 |
0 |
unless my $buffer = shift() |
|
97
|
0 |
4 |
if ($buffer =~ /No support for OS|OS unsupported/im) |
|
106
|
3 |
1 |
unless my $buffer = shift() |
|
108
|
0 |
4 |
if ($buffer =~ /Perl .*? required--this is only .*?/m) |
|
113
|
1 |
3 |
if ($buffer =~ /ERROR:( perl:)? Version .*?( of perl)? is installed, but we need version >= .*?/m) |
|
122
|
2 |
5 |
unless my $buffer = shift() |
|
123
|
0 |
4 |
if ($buffer =~ /(No tests defined( for [\w:]+ extension)?\.)/ and not $buffer =~ /\*\.t/m and not $buffer =~ /test\.pl/m) |
|
137
|
3 |
0 |
unless my $buffer = shift() |
|
138
|
0 |
2 |
$buffer =~ /(MAKE [A-Z]+).*/ ? : |
|
222
|
1 |
1 |
$author && $email ? : |
|
301
|
1 |
1 |
unless @prq |
|
317
|
0 |
1 |
$_->is_uptodate('version', $want) ? : |
|
363
|
0 |
1 |
unless @toolchain |