| line |
true |
false |
branch |
|
20
|
1 |
0 |
if ($sym eq 'list_modules') { } |
|
30
|
0 |
17 |
if ($trivial_syntax) { } |
|
44
|
8 |
9 |
if ($options->{'wildcard'}) |
|
51
|
8 |
0 |
if (String::Wildcard::Bash::contains_wildcard($part)) { } |
|
54
|
3 |
5 |
if @prefix_parts |
|
60
|
8 |
0 |
if ($has_wildcard) |
|
63
|
1 |
7 |
if $has_globstar |
|
66
|
0 |
17 |
unless $prefix =~ /\A(?:$root_notleaf_rx::
(?:$notroot_notleaf_rx::)*)?\z/x and not $prefix =~ /(?:\A|[^:]::)\.\.?::/ |
|
75
|
0 |
5 |
unless $list_modules or $list_prefixes or $list_pod |
|
85
|
49 |
52 |
if (not $result_field) { } |
|
|
25 |
27 |
elsif ($all or $always_all) { } |
|
92
|
23 |
4 |
unless exists $results{$key}{$result_field} |
|
98
|
17 |
28 |
$prefix eq '' ? : |
|
102
|
17 |
28 |
$prefix eq '' ? : |
|
107
|
28 |
62 |
unless opendir my $dh, $dir |
|
109
|
60 |
201 |
if ($list_modules and $entry =~ /$pm_rx/ or $list_pod and $entry =~ /$pod_rx/) { } |
|
|
40 |
180 |
elsif ($list_prefixes || $recurse and ($entry ne '.' and $entry ne '..') and $entry =~ /$dir_rx/ and -d join('/', $dir, $entry)) { } |
|
113
|
27 |
33 |
if $re_wildcard and not $key =~ /$re_wildcard/ |
|
116
|
30 |
3 |
if $return_path |
|
117
|
6 |
27 |
if $return_library_path |
|
118
|
3 |
30 |
if ($return_version) |
|
121
|
1 |
2 |
if $v eq 'undef' |
|
131
|
0 |
40 |
if exists $seen_prefixes{$newpfx} |
|
132
|
16 |
24 |
if ($list_prefixes) |
|
134
|
13 |
3 |
if $return_path |
|
135
|
0 |
16 |
if $return_library_path |
|
137
|
28 |
12 |
if $recurse |
|
140
|
62 |
0 |
unless $list_pod and $use_pod_dir |
|
142
|
0 |
0 |
unless opendir $dh, $dir |
|
144
|
0 |
0 |
if ($entry =~ /$pod_rx/) |
|
146
|
0 |
0 |
if $re_wildcard and not $key =~ /$re_wildcard/ |
|
148
|
0 |
0 |
if $return_path |
|
149
|
0 |
0 |
if $return_library_path |
|
157
|
2 |
15 |
if ($list_prefixes and $re_wildcard) |
|
159
|
0 |
6 |
unless $k =~ /::\z/ |
|
161
|
2 |
4 |
unless $k =~ /$re_wildcard/ or $k_nocolon =~ /$re_wildcard/ |
|
178
|
0 |
8 |
ref $_[0] eq 'HASH' ? : |
|
187
|
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'})) { } |
|
189
|
0 |
0 |
if $m{'slashes_before_bash_brace'} |
|
190
|
0 |
0 |
if ($opt_brace) { } |
|
194
|
0 |
0 |
unless $2 |
|
206
|
0 |
10 |
if ($p eq '?') { } |
|
|
9 |
1 |
elsif ($p eq '*') { } |
|
|
1 |
0 |
elsif ($p eq '**') { } |