| line |
true |
false |
branch |
|
86
|
1 |
7 |
unless my(@parts) = $self->parts
|
|
89
|
3 |
12 |
/^:/u ? :
|
|
152
|
0 |
8 |
if grep({$_ eq "*";} $self->parts) > 1
|
|
157
|
0 |
8 |
if @repeated
|
|
161
|
0 |
2 |
unless $seen{":$key"}
|
|
164
|
0 |
8 |
if (@bad_constraints)
|
|
192
|
3 |
8 |
if $str eq join("/", $self->parts)
|
|
202
|
10 |
6 |
if ($my_part ne "*" and not $my_part =~ /^:/u)
|
|
203
|
3 |
7 |
unless $my_part eq $in_parts[$i]
|
|
207
|
1 |
5 |
if ($my_parts[$i] eq "*")
|
|
212
|
0 |
5 |
unless $my_parts[$i] =~ /^:(.+)/u
|
|
216
|
4 |
1 |
if (my $constraint = $self->constraint_for($name))
|
|
217
|
2 |
2 |
unless $constraint->check($value)
|