line |
true |
false |
branch |
14
|
8 |
20 |
unless defined $path and length $path |
18
|
1 |
19 |
unless length $first |
24
|
5 |
1 |
if $_->name eq $first |
28
|
14 |
5 |
unless ($child) |
32
|
3 |
11 |
if $rule |
41
|
7 |
32 |
if (ref $rule eq 'CODE') { } |
|
19 |
13 |
elsif (ref $rule eq 'ARRAY') { } |
|
13 |
0 |
elsif (ref $rule eq 'Regexp') { } |
62
|
9 |
132 |
if ($name eq '*') { } |
|
45 |
87 |
elsif ($name =~ /^#/) { } |
|
59 |
28 |
elsif ($name eq $part) { } |
68
|
33 |
12 |
if (not $rule or $self->_check_rule($rule, $part)) |
69
|
27 |
6 |
$rule ? : |
83
|
9 |
123 |
unless defined $path and length $path |
87
|
0 |
123 |
unless length $first |
91
|
0 |
22 |
wantarray ? : |
97
|
0 |
0 |
unless @_ |
99
|
0 |
0 |
if (@_ == 1) |
101
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
131
|
0 |
0 |
unless @_ |
133
|
0 |
0 |
if (@_ == 1) |
134
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
163
|
0 |
0 |
@_ ? : |
168
|
0 |
0 |
@_ ? : |