| line |
true |
false |
branch |
|
41
|
0 |
1 |
unless _is_perl_module($_) |
|
45
|
1 |
0 |
@_ ? : |
|
48
|
0 |
3 |
if $File::Find::dir =~ m[[\\/]?CVS[\\/]|[\\/]?\.svn[\\/]] |
|
49
|
0 |
3 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]libdoc$] |
|
50
|
0 |
3 |
if $File::Find::dir =~ m[[\\/]?inc] |
|
51
|
0 |
3 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]man\d$] |
|
52
|
0 |
3 |
if $File::Find::name =~ /Build$/i |
|
53
|
2 |
1 |
unless -f $File::Find::name and -r _ |
|
69
|
0 |
5 |
unless (open my $fh, $file) |
|
73
|
5 |
259 |
if /^\s*#/ |
|
74
|
24 |
235 |
if /^\s*=(head[1234]|over|item|begin|for|encoding)/ .. /^\s*=(cut|back|end)/ || eof $fh |
|
75
|
3 |
232 |
if /^\s*(__END__|__DATA__)/ |
|
76
|
0 |
232 |
if (/\t/) |
|
94
|
0 |
1 |
unless $_[0] =~ /\.pm$/i |
|
99
|
0 |
0 |
if $file =~ /\.pl$/i |
|
100
|
0 |
0 |
if $file =~ /\.t$/ |
|
101
|
0 |
0 |
unless open my $fh, $file |
|
103
|
0 |
0 |
if defined $first and $first =~ /$PERL_PATTERN/ |
|
109
|
5 |
0 |
unless $file =~ /::/ |
|
114
|
0 |
0 |
unless -e $candidate and -f _ and -r _ |
|
121
|
1 |
0 |
unless ($Test->has_plan) |
|
129
|
0 |
0 |
wantarray ? : |