| 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 ? : |