| line |
true |
false |
branch |
|
18
|
1 |
0 |
if ($sym eq 'list_modules') { } |
|
28
|
0 |
12 |
if ($trivial_syntax) { } |
|
42
|
8 |
4 |
if ($options->{'wildcard'}) |
|
49
|
8 |
0 |
if (String::Wildcard::Bash::contains_wildcard($part)) { } |
|
52
|
3 |
5 |
if @prefix_parts |
|
58
|
8 |
0 |
if ($has_wildcard) |
|
61
|
1 |
7 |
if $has_globstar |
|
64
|
0 |
12 |
unless $prefix =~ /\A(?:$root_notleaf_rx::
(?:$notroot_notleaf_rx::)*)?\z/x and not $prefix =~ /(?:\A|[^:]::)\.\.?::/ |
|
73
|
0 |
4 |
unless $list_modules or $list_prefixes or $list_pod |
|
81
|
12 |
28 |
$prefix eq '' ? : |
|
85
|
12 |
28 |
$prefix eq '' ? : |
|
90
|
28 |
52 |
unless opendir my $dh, $dir |
|
92
|
48 |
163 |
if ($list_modules and $entry =~ /$pm_rx/ or $list_pod and $entry =~ /$pod_rx/) { } |
|
|
37 |
142 |
elsif ($list_prefixes || $recurse and ($entry ne '.' and $entry ne '..') and $entry =~ /$dir_rx/ and -d join('/', $dir, $entry)) { } |
|
96
|
27 |
21 |
if $re_wildcard and not $key =~ /$re_wildcard/ |
|
98
|
0 |
19 |
$return_path ? : |
|
|
19 |
2 |
if $return_path or not exists $results{$key} |
|
106
|
0 |
37 |
if exists $seen_prefixes{$newpfx} |
|
108
|
0 |
13 |
$return_path ? : |
|
|
13 |
24 |
if $return_path || !exists $results{$newpfx} and $list_prefixes |
|
109
|
28 |
9 |
if $recurse |
|
112
|
52 |
0 |
unless $list_pod and $use_pod_dir |
|
114
|
0 |
0 |
unless opendir $dh, $dir |
|
116
|
0 |
0 |
if ($entry =~ /$pod_rx/) |
|
118
|
0 |
0 |
if $re_wildcard and not $key =~ /$re_wildcard/ |
|
119
|
0 |
0 |
$return_path ? : |
|
127
|
2 |
10 |
if ($list_prefixes and $re_wildcard) |
|
129
|
0 |
6 |
unless $k =~ /::\z/ |
|
131
|
2 |
4 |
unless $k =~ /$re_wildcard/ or $k_nocolon =~ /$re_wildcard/ |
|
148
|
0 |
8 |
ref $_[0] eq 'HASH' ? : |
|
157
|
0 |
25 |
if (defined($p = $m{'bash_brace_content'})) { } |
|
|
10 |
15 |
elsif (defined($p = $m{'bash_joker'})) { } |
|
|
0 |
15 |
elsif (defined($p = $m{'literal_brace_single_element'})) { } |
|
|
4 |
11 |
elsif (defined($p = $m{'bash_class'})) { } |
|
|
0 |
11 |
elsif (defined($p = $m{'sql_joker'})) { } |
|
|
11 |
0 |
elsif (defined($p = $m{'literal'})) { } |
|
159
|
0 |
0 |
if $m{'slashes_before_bash_brace'} |
|
160
|
0 |
0 |
if ($opt_brace) { } |
|
164
|
0 |
0 |
unless $2 |
|
176
|
0 |
10 |
if ($p eq '?') { } |
|
|
9 |
1 |
elsif ($p eq '*') { } |
|
|
1 |
0 |
elsif ($p eq '**') { } |