Branch Coverage

blib/lib/Path/Naive.pm
Criterion Covered Total %
branch 32 34 94.1


line true false branch
22 6 51 unless defined $_[0] and length $_[0]
32 8 4 if $d eq '.' and @d || @d0 || $abs
33 6 7 if ($d eq '..' and @d > 1 && $d[-1] ne '..' || @d == 1 && $d[-1] ne '..' && $d[-1] ne '.' && @d0 || $abs)
39 3 38 if (wantarray) { }
42 13 25 $abs ? :
47 3 12 unless defined $_[0] and length $_[0]
48 8 4 $_[0] =~ m[\A/] ? :
52 3 2 unless defined $_[0] and length $_[0]
53 1 1 $_[0] =~ m[\A/] ? :
57 6 23 unless @_ > 1
61 0 49 unless defined $_ and length $_
62 23 26 unless $i++
63 7 19 if (m[\A/]) { }
66 6 13 $res =~ m[/\z] ? :
77 3 6 unless defined $_[0] and length $_[0]
78 0 6 unless defined $_[1] and length $_[1]
79 1 5 unless is_abs_path($_[1])