| line |
true |
false |
branch |
|
212
|
33 |
36 |
if (exists $conf->{'config'}{'version_patchlevel_string'} and not exists $conf->{'config'}{'api_version'}) |
|
216
|
0 |
33 |
if $vps =~ s/\b revision \s+ (\S+) //x |
|
219
|
33 |
0 |
if $vps =~ s/\b version \s+ (\S+) //x |
|
221
|
33 |
0 |
if $vps =~ s/\b subversion \s+ (\S+) //x |
|
223
|
0 |
33 |
if $vps =~ s/\b patch \s+ (\S+) //x |
|
233
|
0 |
69 |
if ($conf->{'config'}{'perl_patchlevel'} =~ /^git\w*-([^-]+)/i) |
|
248
|
33 |
28 |
if ($pv =~ /^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)/m) |
|
251
|
33 |
0 |
if $rev =~ s/^ revision \s+ (\S+) \s*//x |
|
252
|
33 |
0 |
if $rev |
|
256
|
33 |
0 |
if defined $vers and defined $subvers and defined $rel |
|
259
|
0 |
61 |
if ($pv =~ /^\s+(Snapshot of:)\s+(\S+)/) |
|
266
|
138 |
45 |
unless $pv =~ s/, \s* $k \s*=\s* (.*) \s*$//mx |
|
274
|
15 |
46 |
if ($pv =~ /\S,? (?:osvers|archname)=/) { } |
|
302
|
548 |
1351 |
if $v =~ /^'(.*)'$/ |
|
310
|
32 |
29 |
if $pv =~ /^\s+Compiled at\s+(.*)/m |
|
312
|
5 |
56 |
if $pv =~ /^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)/ms |
|
314
|
32 |
29 |
if $pv =~ /^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))/ms |
|
318
|
32 |
29 |
if $pv =~ /^\s+Built under\s+(.*)/m |
|
336
|
2 |
46 |
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" |
|
339
|
1296 |
84 |
exists $conf->{'config'}{$_} ? : |
|
354
|
4 |
30 |
unless my $conf = summary(shift()) |
|
357
|
1 |
29 |
if $@ |
|
364
|
802 |
0 |
defined $conf->{$_} ? : |
|
371
|
1 |
6 |
ref $args eq 'ARRAY' ? : |
|
|
1 |
7 |
ref $args eq 'HASH' ? : |
|
377
|
3 |
5 |
if (defined $stamp) { } |
|
395
|
2 |
6 |
if ($args{'env'}) |