| 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
|
|
82
|
12 |
28 |
$prefix eq '' ? :
|
|
86
|
12 |
28 |
$prefix eq '' ? :
|
|
91
|
28 |
52 |
unless opendir my $dh, $dir
|
|
93
|
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)) { }
|
|
97
|
27 |
21 |
if $re_wildcard and not $key =~ /$re_wildcard/
|
|
98
|
0 |
0 |
unless $results{$key}
|
|
99
|
0 |
0 |
$all ? :
|
|
|
0 |
19 |
$return_path ? :
|
|
|
19 |
2 |
if $all and $return_path or not exists $results{$key}
|
|
107
|
0 |
37 |
if exists $seen_prefixes{$newpfx}
|
|
108
|
0 |
0 |
unless $results{$newpfx}
|
|
109
|
0 |
0 |
$all ? :
|
|
|
0 |
13 |
$return_path ? :
|
|
|
13 |
24 |
if $all && $return_path || !exists $results{$newpfx} and $list_prefixes
|
|
110
|
28 |
9 |
if $recurse
|
|
113
|
52 |
0 |
unless $list_pod and $use_pod_dir
|
|
115
|
0 |
0 |
unless opendir $dh, $dir
|
|
117
|
0 |
0 |
if ($entry =~ /$pod_rx/)
|
|
119
|
0 |
0 |
if $re_wildcard and not $key =~ /$re_wildcard/
|
|
120
|
0 |
0 |
unless $results{$key}
|
|
|
0 |
0 |
$all ? :
|
|
|
0 |
0 |
$return_path ? :
|
|
128
|
2 |
10 |
if ($list_prefixes and $re_wildcard)
|
|
130
|
0 |
6 |
unless $k =~ /::\z/
|
|
132
|
2 |
4 |
unless $k =~ /$re_wildcard/ or $k_nocolon =~ /$re_wildcard/
|
|
149
|
0 |
8 |
ref $_[0] eq 'HASH' ? :
|
|
158
|
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'})) { }
|
|
160
|
0 |
0 |
if $m{'slashes_before_bash_brace'}
|
|
161
|
0 |
0 |
if ($opt_brace) { }
|
|
165
|
0 |
0 |
unless $2
|
|
177
|
0 |
10 |
if ($p eq '?') { }
|
|
|
9 |
1 |
elsif ($p eq '*') { }
|
|
|
1 |
0 |
elsif ($p eq '**') { }
|