Branch Coverage

blib/lib/File/System/Object.pm
Criterion Covered Total %
branch 61 72 84.7


line true false branch
68 0 0 if ($self->is_root) { }
72 0 0 unless $self->is_container and $result = $result->child($component)
105 132 2090 unless @open_list
130 644 499 @_ ? :
132 176 967 unless ref $_
139 992 4077 if &$want($file)
141 2765 2304 if not $File::System::prune and $file->is_container
195 4654 0 if (UNIVERSAL::isa($obj, 'File::System::Object')) { }
206 0 0 if (UNIVERSAL::isa($obj, 'File::System::Object')) { }
217 2354 0 if (UNIVERSAL::isa($obj, 'File::System::Object')) { }
657 0 123386 unless defined $path
661 52295 71091 if (ref $self and not $path =~ m[^/])
663 0 52295 unless $self->is_container
672 17159 106227 unless @components
673 0 123386 unless @components > 1
676 4609 159045 if ($components[$i] eq '.') { }
1607 157438 elsif ($components[$i] eq '..' and $i == 1) { }
2998 154440 elsif ($components[$i] eq '..') { }
688 4920 118466 unless @components > 1
711 6142 12334 if $str =~ /^\./ and not $glob =~ /^\./
718 1054 24278 if (ref $el eq 'File::System::Glob::MatchOne') { }
1268 23010 elsif (ref $el eq 'File::System::Glob::MatchAny') { }
1208 21802 elsif (ref $el eq 'File::System::Glob::MatchAlternative') { }
40 21762 elsif (ref $el eq 'File::System::Glob::MatchCollection') { }
719 396 658 unless substr $str, 0, 1, ''
725 122 2230 if ($alt eq substr($str, 0, length $alt))
732 1086 122 unless $match
738 20 38 if (ref $class and $char ge $$class[0] and $char le $$class[1]) { }
18 20 elsif ($char eq $class) { }
747 2 38 unless $match
751 9368 12394 unless $char eq $$el{'character'}
754 13484 996 unless $str and not @$tree
758 10012 2038 unless @backup
784 12 5447 if ($path eq '/') { }
802 108 9616 if ($path eq '/') { }
807 5688 3928 if @components == 1