Branch Coverage

blib/lib/Path/List/Rule.pm
Criterion Covered Total %
branch 23 28 82.1


line true false branch
34 1 44 if substr($path, -1, 1) eq "/"
43 0 45 if (not defined $fs) { }
44 1 elsif (defined $leaf) { }
50 29 15 if $self{'is_dir'}
69 0 156 if ($op eq "e")
70 45 111 if ($op eq "l")
71 30 81 if ($op eq 'r') { }
54 27 elsif ($op eq 'd') { }
27 0 elsif ($op eq 'f') { }
99 9 0 unless length $dirs[-1]
100 2 7 unless length $file
115 7 8 unless exists $ref->{$entry}
118 3 1 if defined $file
135 0 6 unless exists $ref->{$entry}