Branch Coverage

blib/lib/MarpaX/ESLIF/URI/_generic.pm
Criterion Covered Total %
branch 18 64 28.1


line true false branch
61 0 32 unless $#args == 0
76 32 0 if (length $_origin)
80 0 32 unless $self->grammar->parse($recognizerInterface, $valueInterface)
151 9 0 if defined $hostname
236 0 0 if ($self->is_abs) { }
242 0 0 unless defined $self->_scheme
272 0 0 unless $base->is_abs
291 0 0 if (not $strict and ($R{'scheme'} // '') == $Base{'scheme'})
296 0 0 if (defined $R{'scheme'}) { }
302 0 0 if (defined $R{'authority'}) { }
307 0 0 if (not length $R{'path'}) { }
309 0 0 if (defined do { query() }->R) { }
315 0 0 if (substr($R{'path'}, 0, 1) eq '/') { }
336 0 0 if defined $scheme
339 0 0 if defined $authority
344 0 0 if defined $query
347 0 0 if defined $fragment
357 0 0 unless $other->$MarpaX::ESLIF::URI::_generic::_isa('MarpaX::ESLIF::URI::_generic')
393 0 67 if (substr($input, 0, 3) eq '../') { }
0 67 elsif (substr($input, 0, 2) eq './') { }
406 0 67 if (substr($input, 0, 3) eq '/./') { }
0 67 elsif ($input =~ m[^/\.(?:/|\z)]) { }
421 0 67 if (substr($input, 0, 4) eq '/../') { }
0 67 elsif ($input =~ m[^/\.\.(?:/|\z)]) { }
435 0 67 if ($input eq '.' or $input eq '..')
465 77 502 unless defined $value
476 1 87 if $class->can($method)
492 0 0 if defined $base->authority($type) and not length $base->path($type)
502 0 0 if ($rindex >= 0) { }
503 0 0 if ($rindex < length($base_path) - 1) { }
607 0 8 $decoded =~ /[A-Za-z0-9\-._~]/ ? :
647 3 2821 unless ref $arg