| line |
true |
false |
branch |
|
37
|
2 |
83 |
if @bad |
|
38
|
0 |
83 |
if $$self{'path'} and substr($$self{'path'}, 0, 1) ne '/' |
|
60
|
1 |
76 |
if $$self{'roots'} and not ref $$self{'roots'} |
|
63
|
74 |
3 |
if ($$self{'path'} =~ /^$r\b/) |
|
65
|
3 |
71 |
if substr($root, -1) ne '/' |
|
82
|
6 |
71 |
if $$self{'omit'} and not ref $$self{'omit'} |
|
85
|
9 |
68 |
if ($$self{'omit'} and ref $$self{'omit'} eq 'ARRAY') |
|
88
|
5 |
6 |
if (substr($_, 0, 1) eq '/') { } |
|
|
1 |
5 |
elsif (m[/]) { } |
|
90
|
1 |
4 |
if substr($_, -1) eq '/' |
|
99
|
11 |
65 |
unless ref $omit_regex eq 'ARRAY' |
|
102
|
7 |
11 |
if ($o =~ m[/]) { } |
|
123
|
145 |
70 |
if substr($current_test, -1) eq '/' |
|
125
|
10 |
205 |
if $$self{'omit_elt'}{$current_test} or $$self{'omit_elt'}{$final} |
|
127
|
8 |
197 |
if grep {$final =~ /$_/;} @{$$self{'omit_regex_elt'};} |
|
129
|
3 |
194 |
if grep {$current_test =~ /$_/;} @{$$self{'omit_regex_path'};} |
|
139
|
0 |
2 |
if ref $$self{'map'} ne 'HASH' |
|
147
|
11 |
2 |
if (substr($key2, 0, 1) eq '/') { } |
|
|
0 |
2 |
elsif ($key2 =~ m[/]) { } |
|
149
|
3 |
8 |
unless substr($key2, -1) eq '/' |
|
156
|
11 |
2 |
$key2 =~ m[/] ? : |
|
157
|
4 |
9 |
if ($match) |
|
170
|
1 |
75 |
if $$self{'indexes'} and not ref $$self{'indexes'} |
|
172
|
76 |
0 |
if (ref $$self{'indexes'} eq 'ARRAY') |
|
177
|
4 |
72 |
if ($indexes{$final}) |
|
201
|
2 |
74 |
if $$self{'map'} |
|
217
|
71 |
179 |
if ($elt eq '/' or $elt eq '') { } |
|
221
|
108 |
71 |
if substr($elt, -1) eq '/' |
|
223
|
70 |
109 |
if $last |
|
224
|
170 |
9 |
if lc $label eq $label and $label =~ /^\w+$/ |
|
240
|
12 |
254 |
if (ref $$self{'labels'} eq 'CODE') { } |
|
|
40 |
214 |
elsif (ref $$self{'labels'} eq 'HASH') { } |
|
241
|
6 |
6 |
if substr($elt, -1) eq '/' and $elt ne '/' |
|
245
|
20 |
20 |
if substr($elt, -1) eq '/' and $elt ne '/' |
|
247
|
20 |
20 |
unless $elt eq '/' or $last |
|
264
|
4 |
186 |
if exists $$self{'elt_map'}{$_} |
|
281
|
190 |
76 |
if ($i != $#{$$self{'elt'};}) { } |
|
286
|
6 |
184 |
if (ref $$self{'format'} eq 'CODE') { } |
|
|
184 |
0 |
elsif ($$self{'format'} and not ref $$self{'format'}) { } |
|
310
|
2 |
74 |
if (ref $$self{'format_last'} eq 'CODE') { } |
|
|
74 |
0 |
elsif ($$self{'format_last'} and not ref $$self{'format_last'}) { } |
|
338
|
0 |
83 |
if @bad |
|
342
|
0 |
913 |
if defined $arg{$_} |
|
346
|
3 |
80 |
unless $$self{'path'} |
|
347
|
3 |
77 |
if substr($$self{'path'}, 0, 1) ne '/' |
|
372
|
0 |
72 |
unless ref $bc |