Branch Coverage

blib/lib/IRI.pm
Criterion Covered Total %
branch 42 74 56.7


line true false branch
138 24 0 unless ($self->lazy)
244 24 0 if ($v =~ /^$IRIreference$/o) { }
263 0 4 if ($base_has_authority and not $bc->{'path'}) { }
280 0 13 if ($input =~ m[^[.][.]/]) { }
0 13 elsif ($input =~ m[^[.]/]) { }
0 13 elsif ($input =~ m[^/[.]/]) { }
0 13 elsif ($input eq '/.') { }
1 12 elsif ($input =~ m[^/[.][.]/]) { }
0 12 elsif ($input eq '/..') { }
0 12 elsif ($input eq '.') { }
0 12 elsif ($input eq '..') { }
300 12 0 if ($leadingSlash)
305 7 5 if (scalar @parts)
309 12 0 if ($leadingSlash)
322 8 5 if ($self->has_base and not $self->components->{'scheme'})
332 0 8 if ($components{'scheme'}) { }
334 0 0 if (exists $components{$k})
339 0 8 if ($components{'user'} or $components{'port'} or defined $components{'host'}) { }
341 0 0 if (exists $components{$k})
348 3 5 if ($components{'path'} eq '') { }
350 0 3 if ($components{'query'}) { }
353 0 3 if ($base{'query'})
358 1 4 if ($components{'path'} =~ m[^/]) { }
365 0 5 if (defined $components{'query'})
369 8 0 if ($base{'user'} or $base{'port'} or defined $base{'host'})
371 8 16 if (exists $base{$k})
377 8 0 if (defined $base{'scheme'})
382 2 6 if (defined $components{'fragment'})
410 10 0 if (my $s = $components->{'scheme'})
414 10 0 if ($components->{'user'} or $components->{'port'} or defined $components->{'host'})
417 0 10 if (my $u = $components->{'user'})
420 10 0 if (defined(my $h = $components->{'host'}))
423 0 10 if (my $p = $components->{'port'})
428 10 0 if (defined(my $p = $components->{'path'}))
432 0 10 if (defined(my $q = $components->{'query'}))
436 2 8 if (defined(my $f = $components->{'fragment'}))
453 0 0 if (defined $str)