Branch Coverage

inc/Path/Class/Dir.pm
Criterion Covered Total %
branch 3 72 4.1


line true false branch
21 0 2 if @_ == 1 and not defined $_[0]
25 0 2 $_[0] eq '' ? :
0 2 @_ == 0 ? :
49 0 0 $_ eq $u ? :
64 0 0 if $_[0]{'file_spec_class'}
71 0 0 unless @_
74 0 0 if ($offset < 0)
76 0 0 wantarray ? :
0 0 unless @_
79 0 0 if ($length < 0)
93 0 0 if ($self->is_absolute) { }
0 0 elsif ($self eq $curdir) { }
0 0 elsif (not grep({$_ ne $updir;} @$dirs)) { }
0 0 elsif (@$dirs == 1) { }
119 0 0 length $rel ? :
134 0 0 unless my $callback = $opts{'callback'}
157 0 0 $opts{'preorder'} ? :
0 0 $opts{'depthfirst'} && $opts{'preorder'} ? :
161 0 0 if ($entry->is_dir) { }
173 0 0 unless my $dh = $self->open
178 0 0 if not $opts{'all'} and $entry eq '.' || $entry eq '..'
180 0 0 if -d $out[-1]
187 0 0 unless ($$self{'dh'})
188 0 0 unless $$self{'dh'} = $self->open
192 0 0 unless (defined $next)
199 0 0 if -d $file
205 0 0 unless $other
207 0 0 unless UNIVERSAL::isa($other, 'Path::Class::Dir')
208 0 0 unless $other->is_dir
210 0 0 if ($self->is_absolute) { }
0 0 elsif ($other->is_absolute) { }
219 0 0 if ($self->volume)
220 0 0 unless $other->volume eq $self->volume
225 0 0 if "@{$$self{'dirs'};}" eq "@{$self->new('')->{'dirs'};}"
229 0 0 if $i > $#{$$other{'dirs'};}
230 0 0 if $$self{'dirs'}[$i] ne $$other{'dirs'}[$i]