| line |
true |
false |
branch |
|
121
|
43 |
3 |
unless _is_perl_module($_) |
|
125
|
2 |
1 |
@_ ? : |
|
132
|
2 |
23 |
if (-d $File::Find::name and $File::Find::name =~ m[(?:^|[\\/])(?:CVS|\.svn|\.git)$] || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]libdoc$] || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]man\d$]) |
|
141
|
23 |
47 |
unless -f $File::Find::name and -r _ |
|
142
|
0 |
47 |
if $File::Find::name =~ /\.#.+?[\d\.]+$/ |
|
174
|
0 |
23 |
unless (-f $file and -r _) |
|
187
|
23 |
0 |
if $ENV{'PATH'} |
|
191
|
18 |
5 |
if $is_script |
|
201
|
0 |
23 |
unless ($ok) |
|
222
|
0 |
29 |
unless (open my $fh, "<", $file) |
|
241
|
19 |
242 |
if /^\s*#/ |
|
242
|
6 |
236 |
if /^=(cut|back|end)/ |
|
243
|
15 |
221 |
if /^=\S+/ |
|
244
|
171 |
50 |
if $pod |
|
245
|
0 |
50 |
if /^\s*(__END__|__DATA__)/ |
|
246
|
27 |
23 |
if $_ =~ /$strict_module_rx/ |
|
247
|
2 |
21 |
if (/\buse\s+(5\.\d+)/ and $1 >= "5.012") |
|
250
|
1 |
20 |
if (/\buse\s+v5\.(\d+)/ and $1 >= 12) |
|
375
|
0 |
5 |
if (not $is_script and $is_module and not $CAN_USE_WARNINGS) |
|
381
|
0 |
16 |
unless (open my $fh, "<", $file) |
|
393
|
7 |
9 |
if ($. == 1 and $is_script and $_ =~ /$PERL_PATTERN/) |
|
394
|
6 |
1 |
if (/\s+-\w*[wW]/) |
|
398
|
0 |
32 |
unless $CAN_USE_WARNINGS |
|
399
|
2 |
30 |
if /^\s*#/ |
|
400
|
9 |
21 |
if /^\s*=.+/ .. /^\s*=(cut|back|end)/ |
|
401
|
0 |
21 |
if /^\s*(__END__|__DATA__)/ |
|
402
|
7 |
14 |
if $_ =~ /$warnings_module_rx/ |
|
435
|
20 |
0 |
if $TEST_SYNTAX |
|
436
|
20 |
0 |
if $TEST_STRICT |
|
437
|
7 |
13 |
if $TEST_WARNINGS |
|
469
|
0 |
0 |
unless defined $cover_bin |
|
473
|
0 |
0 |
@_ ? : |
|
481
|
0 |
0 |
if $ENV{'PATH'} |
|
482
|
0 |
0 |
if ($IS_WINDOWS and not -d $DEVEL_COVER_DB) |
|
483
|
0 |
0 |
unless mkdir $DEVEL_COVER_DB |
|
487
|
0 |
0 |
if ($?) |
|
505
|
1 |
64 |
if $_[0] =~ /\~$/ |
|
506
|
56 |
8 |
unless $_[0] =~ /\.pm$/i |
|
513
|
1 |
84 |
if $file =~ /\~$/ |
|
514
|
25 |
59 |
if $file =~ /\.pl$/i |
|
515
|
22 |
37 |
if $file =~ /\.t$/ |
|
516
|
0 |
37 |
unless open my $fh, "<", $file |
|
518
|
0 |
37 |
if defined $first and $first =~ /$PERL_PATTERN/ |
|
528
|
0 |
18 |
unless open my $fh, "<", $file |
|
530
|
16 |
2 |
unless $first =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ |
|
544
|
0 |
2 |
unless -e $candidate and -f _ and -r _ |
|
552
|
0 |
1 |
if defined $COVER |
|
554
|
0 |
1 |
$IS_WINDOWS ? : |
|
558
|
0 |
3 |
if ($IS_WINDOWS) { } |
|
559
|
0 |
0 |
unless -f $path_cover and -r _ |
|
562
|
2 |
1 |
unless -x $path_cover |
|
571
|
0 |
3 |
unless ($Test->has_plan) |
|
580
|
0 |
70 |
if (wantarray) { } |