| line |
true |
false |
branch |
|
213
|
38 |
41 |
if (exists $conf->{'config'}{'version_patchlevel_string'} and not exists $conf->{'config'}{'api_version'}) |
|
217
|
0 |
38 |
if $vps =~ s/\b revision \s+ (\S+) //x |
|
220
|
38 |
0 |
if $vps =~ s/\b version \s+ (\S+) //x |
|
222
|
38 |
0 |
if $vps =~ s/\b subversion \s+ (\S+) //x |
|
224
|
0 |
38 |
if $vps =~ s/\b patch \s+ (\S+) //x |
|
234
|
0 |
79 |
if ($conf->{'config'}{'perl_patchlevel'} =~ /^git\w*-([^-]+)/i) |
|
249
|
38 |
33 |
if ($pv =~ /^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)/m) |
|
252
|
38 |
0 |
if $rev =~ s/^ revision \s+ (\S+) \s*//x |
|
253
|
38 |
0 |
if $rev |
|
257
|
38 |
0 |
if defined $vers and defined $subvers and defined $rel |
|
260
|
0 |
71 |
if ($pv =~ /^\s+(Snapshot of:)\s+(\S+)/) |
|
267
|
168 |
45 |
unless $pv =~ s/, \s* $k \s*=\s* (.*) \s*$//mx |
|
275
|
15 |
56 |
if ($pv =~ /\S,? (?:osvers|archname)=/) { } |
|
303
|
638 |
1557 |
if $v =~ /^'(.*)'$/ |
|
311
|
37 |
34 |
if $pv =~ /^\s+Compiled at\s+(.*)/m |
|
313
|
6 |
65 |
if $pv =~ /^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)/ms |
|
315
|
37 |
34 |
if $pv =~ /^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))/ms |
|
319
|
37 |
34 |
if $pv =~ /^\s+Built under\s+(.*)/m |
|
337
|
2 |
56 |
unless ref $conf eq "HASH" and exists $conf->{'config'} and exists $conf->{'build'} and ref $conf->{'config'} eq "HASH" and ref $conf->{'build'} eq "HASH" |
|
340
|
1576 |
104 |
exists $conf->{'config'}{$_} ? : |
|
355
|
4 |
35 |
unless my $conf = summary(shift()) |
|
358
|
1 |
34 |
if $@ |
|
365
|
942 |
0 |
defined $conf->{$_} ? : |
|
372
|
1 |
6 |
ref $args eq 'ARRAY' ? : |
|
|
1 |
7 |
ref $args eq 'HASH' ? : |
|
378
|
3 |
5 |
if (defined $stamp) { } |
|
396
|
2 |
6 |
if ($args{'env'}) |