line |
true |
false |
branch |
121
|
40 |
2 |
unless _is_perl_module($_) |
125
|
1 |
1 |
@_ ? : |
132
|
2 |
21 |
if (-d $File::Find::name and $_ eq 'CVS' || $_ eq '.svn' || $_ eq '.git' || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]libdoc$] || $File::Find::name =~ m[(?:^|[\\/])blib[\\/]man\d$]) |
141
|
21 |
43 |
unless -f $File::Find::name and -r _ |
142
|
0 |
43 |
if $File::Find::name =~ /\.#.+?[\d\.]+$/ |
174
|
0 |
20 |
unless (-f $file and -r _) |
187
|
20 |
0 |
if $ENV{'PATH'} |
191
|
16 |
4 |
if $is_script |
201
|
0 |
20 |
unless ($ok) |
222
|
0 |
26 |
unless (open my $fh, '<', $file) |
241
|
18 |
239 |
if /^\s*#/ |
242
|
6 |
233 |
if /^=(cut|back|end)/ |
243
|
15 |
218 |
if /^=\S+/ |
244
|
171 |
47 |
if $pod |
245
|
0 |
47 |
if /^\s*(__END__|__DATA__)/ |
246
|
24 |
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 |
4 |
if (not $is_script and $is_module and not $CAN_USE_WARNINGS) |
381
|
0 |
11 |
unless (open my $fh, '<', $file) |
393
|
6 |
5 |
if ($. == 1 and $is_script and $_ =~ /$PERL_PATTERN/) |
394
|
5 |
1 |
if (/\s+-\w*[wW]/) |
398
|
0 |
8 |
unless $CAN_USE_WARNINGS |
399
|
1 |
7 |
if /^\s*#/ |
400
|
0 |
7 |
if /^\s*=.+/ .. /^\s*=(cut|back|end)/ |
401
|
0 |
7 |
if /^\s*(__END__|__DATA__)/ |
402
|
6 |
1 |
if $_ =~ /$warnings_module_rx/ |
435
|
17 |
0 |
if $TEST_SYNTAX |
436
|
17 |
0 |
if $TEST_STRICT |
437
|
3 |
14 |
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 |
55 |
if $_[0] =~ /\~$/ |
506
|
49 |
6 |
unless $_[0] =~ /\.pm$/i |
513
|
1 |
73 |
if $file =~ /\~$/ |
514
|
15 |
58 |
if $file =~ /\.pl$/i |
515
|
24 |
34 |
if $file =~ /\.t$/ |
516
|
0 |
34 |
unless open my $fh, '<', $file |
518
|
0 |
34 |
if defined $first and $first =~ /$PERL_PATTERN/ |
528
|
0 |
16 |
unless open my $fh, '<', $file |
530
|
14 |
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 |
12 |
if ($IS_WINDOWS) { } |
559
|
0 |
0 |
unless -f $path_cover and -r _ |
562
|
12 |
0 |
unless -x $path_cover |
571
|
0 |
2 |
unless ($Test->has_plan) |
580
|
0 |
60 |
wantarray ? : |