| line |
true |
false |
branch |
|
211
|
32 |
35 |
if (exists $conf->{'config'}{'version_patchlevel_string'} and not exists $conf->{'config'}{'api_version'}) |
|
215
|
0 |
32 |
if $vps =~ s/\b revision \s+ (\S+) //x |
|
218
|
32 |
0 |
if $vps =~ s/\b version \s+ (\S+) //x |
|
220
|
32 |
0 |
if $vps =~ s/\b subversion \s+ (\S+) //x |
|
222
|
0 |
32 |
if $vps =~ s/\b patch \s+ (\S+) //x |
|
232
|
0 |
67 |
if ($conf->{'config'}{'perl_patchlevel'} =~ /^git\w*-([^-]+)/i) |
|
247
|
32 |
27 |
if ($pv =~ /^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)/m) |
|
250
|
32 |
0 |
if $rev =~ s/^ revision \s+ (\S+) \s*//x |
|
251
|
32 |
0 |
if $rev |
|
255
|
32 |
0 |
if defined $vers and defined $subvers and defined $rel |
|
258
|
0 |
59 |
if ($pv =~ /^\s+(Snapshot of:)\s+(\S+)/) |
|
265
|
132 |
45 |
unless $pv =~ s/, \s* $k \s*=\s* (.*) \s*$//mx |
|
272
|
32 |
27 |
if (my(%kv) = $pv =~ /\b
(\w+) # key
\s*= # assign
( '\s*[^']*?\s*' # quoted value
| \S+[^=]*?\s*\n # unquoted running till end of line
| \S+ # unquoted value
| \s*\n # empty
)
(?:,?\s+|\s*\n)? # separator (5.8.x reports did not have a ','
/gx) |
|
287
|
530 |
1305 |
if $v =~ /^'(.*)'$/ |
|
296
|
31 |
28 |
if $pv =~ /^\s+Compiled at\s+(.*)/m |
|
298
|
4 |
55 |
if $pv =~ /^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)/ms |
|
300
|
31 |
28 |
if $pv =~ /^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))/ms |
|
304
|
31 |
28 |
if $pv =~ /^\s+Built under\s+(.*)/m |
|
322
|
2 |
44 |
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" |
|
325
|
1240 |
80 |
exists $conf->{'config'}{$_} ? : |
|
340
|
4 |
29 |
unless my $conf = summary(shift()) |
|
343
|
1 |
28 |
if $@ |
|
350
|
775 |
0 |
defined $conf->{$_} ? : |
|
357
|
1 |
6 |
ref $args eq 'ARRAY' ? : |
|
|
1 |
7 |
ref $args eq 'HASH' ? : |
|
363
|
3 |
5 |
if (defined $stamp) { } |
|
381
|
2 |
6 |
if ($args{'env'}) |