| line |
true |
false |
branch |
|
36
|
0 |
0 |
unless GetOptionsFromArray \@a, 'help|?', sub {
pod2usage(-'exitstatus', 0, -'verbose', 0);
}
, 'man', sub {
pod2usage(-'exitstatus', 0, -'verbose', 2);
}
, 'usage', sub {
_usage();
}
, 'version', sub {
_version();
exit 1;
}
, 'prompt', \$$self{'prompt'} |
|
39
|
0 |
0 |
if (0 == scalar @a) { } |
|
51
|
0 |
0 |
if ($$self{'prompt'}) |
|
62
|
0 |
0 |
if ('perl' eq lc $module) |
|
67
|
0 |
0 |
if ($module =~ /\Astrawberry (?:perl)?\z/imsx) |
|
68
|
0 |
0 |
if ('MSWin32' ne $App::module::version::OSNAME or not $App::module::version::Config{'libperl'} =~ /\.a\z/msx) |
|
72
|
0 |
0 |
if ($App::module::version::Config{'libperl'} =~ /\.a\z/msx and not $App::module::version::Config{'myuname'} =~ /\AWin32 [ ] strawberryperl/msx) |
|
78
|
0 |
0 |
if ($App::module::version::Config{'myuname'} =~ /\AWin32 [ ] strawberryperl [ ] # Starting code.
(\S+) # Version
.* [ ] # The date Strawberry Perl was built.
(\S+)\z # The version
/msx) |
|
85
|
0 |
0 |
'i386' eq $bits ? : |
|
91
|
0 |
0 |
if ('activeperl' eq lc $module) |
|
93
|
0 |
0 |
if ($App::module::version::EVAL_ERROR) |
|
106
|
0 |
0 |
if (-e $filename) |
|
108
|
0 |
0 |
if (open IN, "$filename") { } |
|
112
|
0 |
0 |
if (/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/) |
|
125
|
0 |
0 |
if (exists $$version_info{'dir'}) { } |
|
126
|
0 |
0 |
if (exists $$version_info{'version'}) { } |
|
138
|
0 |
0 |
if ($$self{'prompt'}) |
|
168
|
0 |
0 |
if defined $error |