| line |
true |
false |
branch |
|
174
|
22 |
0 |
unless (defined $sep) |
|
175
|
0 |
12 |
$word =~ /\./ ? : |
|
|
10 |
12 |
$word =~ /::/ ? : |
|
183
|
1 |
210 |
if ($tmp =~ /\A\Q$_\E(?:(\Q$sep\E).*|\z)/) |
|
198
|
2 |
20 |
$args{'ns_prefixes'} ? : |
|
213
|
0 |
748 |
if ref $inc |
|
214
|
572 |
176 |
length $fspath ? : |
|
215
|
520 |
228 |
unless opendir my $dh, $dir |
|
217
|
456 |
4652 |
if $_ eq '.' or $_ eq '..' |
|
218
|
224 |
4428 |
unless /\A\w+(\.\w+)?\z/ |
|
220
|
1883 |
2545 |
if $isint and not $is_dir |
|
221
|
2363 |
1 |
if $is_dir and $isint || $find_prefix |
|
222
|
128 |
2417 |
if /(.+)\.pm\z/ and $find_pm |
|
223
|
10 |
2535 |
if /(.+)\.pmc\z/ and $find_pmc |
|
224
|
17 |
2528 |
if /(.+)\.pod\z/ and $find_pod |
|
241
|
20 |
2 |
unless @ns_prefixes > 1 |
|
244
|
4 |
2 |
unless $seen{$_}++ |