| line |
true |
false |
branch |
|
194
|
0 |
2 |
unless @_ |
|
197
|
1 |
2 |
if (@$versions > 1) { } |
|
209
|
0 |
2 |
unless @_ |
|
215
|
0 |
2 |
unless $V::NO_EXIT |
|
221
|
10 |
0 |
$first ? : |
|
239
|
14 |
0 |
if -r $file |
|
250
|
12 |
0 |
unless @inc |
|
256
|
0 |
89 |
if ref $dir |
|
259
|
75 |
14 |
unless -r $filename |
|
267
|
0 |
12 |
if ($V::DEBUG) |
|
278
|
0 |
13 |
unless open my $mod, "<", $parsefile |
|
286
|
5 |
2042 |
/^=cut/ ? : |
|
|
125 |
2047 |
/^=(?!cut)/ ? : |
|
287
|
827 |
1345 |
if $inpod or /^\s*#/ |
|
290
|
24 |
1321 |
if (/^\s* (?:package|class) \s+ (\w+(?:::\w+)*) /x) |
|
293
|
24 |
0 |
unless exists $eval{$cur_pkg} |
|
296
|
459 |
886 |
if $cur_pkg =~ /^V::Module::Info/ |
|
298
|
11 |
875 |
if (/(?:our)?\s*([\$*])(([\w\:\']*)\bVERSION)\s*\=(?![=~])/) { } |
|
|
7 |
868 |
elsif (/^\s* (?:package|class) \s+ [^\s]+ \s+ (v?[0-9.]+) \s* [;\{]/x) { } |
|
301
|
0 |
11 |
if /\$$name\s*=\s*eval.+\$$name/ |
|
302
|
0 |
11 |
if /my\s*\$VERSION\s*=/ |
|
303
|
1 |
10 |
if /^[^']*'[^']*\$${name}[^']*'/ |
|
320
|
7 |
0 |
if ($] >= 5.012) { } |
|
341
|
17 |
11 |
if ($dat->{'prg'}) |
|
342
|
0 |
17 |
if $V::DEBUG |
|
345
|
0 |
0 |
if $V::DEBUG and $@ |
|
355
|
17 |
11 |
exists $dat->{'ver'} ? : |
|
358
|
13 |
0 |
unless $ENV{'PERL_V_SHOW_ALL'} |
|
361
|
2 |
4 |
unless $_->{'pkg'} ne "main" |
|
|
2 |
11 |
if @results > 1 |
|
363
|
10 |
3 |
unless (wantarray) |
|
365
|
2 |
10 |
unless $option->{'pkg'} eq $self->name |
|
377
|
0 |
28 |
if @_ |
|
387
|
28 |
14 |
if (exists $self->{$method}) |