| line |
true |
false |
branch |
|
77
|
0 |
3 |
if (defined $new_package) |
|
105
|
14 |
6 |
if (defined $new_part_name) |
|
107
|
3 |
0 |
if ($self->_is_valid_part_uri($new_part_name)) { } |
|
116
|
0 |
9 |
unless ($self->has_part_name) |
|
129
|
4 |
0 |
if (@path_segments and $path_segments[0] eq '') |
|
133
|
1 |
3 |
if (@new_part_name_segments) |
|
147
|
3 |
0 |
if ($self->has_part_name) |
|
153
|
0 |
1 |
unless ($self->has_package_uri or $self->has_part_name) |
|
175
|
1 |
16 |
if ($part_uri eq '') |
|
179
|
1 |
15 |
unless ($part_uri =~ m[\A /]msx) |
|
183
|
1 |
14 |
if ($part_uri =~ m[/ \z]msx) |
|
191
|
14 |
0 |
if ($segments[0] eq '') |
|
196
|
2 |
22 |
if ($segment eq '') |
|
200
|
1 |
21 |
unless ($segment =~ /\A (?:$PCHAR)+ \z/msx) |
|
204
|
2 |
19 |
if ($segment =~ /\%(?:2f|5c)/imsx) |
|
212
|
1 |
2 |
if ($character =~ /\A [0-9A-Z\-\._~] \z/imsx) |
|
217
|
2 |
16 |
if ($segment =~ /\. \z/msx) |
|
221
|
0 |
16 |
unless ($segment =~ /[^\.]+/msx) |