blib/lib/Path/Abstract/Underload.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 38 | 44 | 86.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
37 | 1122 | 3 | 0 | ref $_ && (ref $_ eq 'Path::Abstract::Underload' || blessed $_ && $_->isa('Path::Abstract::Underload')) |
43 | 132 | 391 | 263 | $_[0] && substr($_[0], 0, 1) eq '/' |
45 | 132 | 513 | 141 | $path && substr($path, -1) eq '/' |
54 | 31 | 645 | 110 | $path ne '/' and $trailing |
131 | 47 | 7 | 0 | 1 == @path and '' eq $path[0] |
133 | 4 | 15 | 10 | defined $path[0] && length $path[0] |
140 | 15 | 30 | 3 | $index == @path - 1 and not defined $path[$index] |
141 | 3 | 0 | 45 | defined $path[$index] and length $path[$index] |
187 | 6 | 24 | 0 | @_ and not defined $_[0] |
line | l | !l | condition |
---|---|---|---|
202 | 9 | 21 | $$options{'match'} || 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
86 | 4 | 6 | 9 | !$$self || substr($$self, 0, 1) ne '/' |
140 | 3 | 0 | 45 | $index == @path - 1 and not defined $path[$index] or not length $path[$index] |
206 | 1 | 29 | 0 | $matcher eq '' or $matcher =~ /^\d+$/ |
217 | 1 | 1 | 8 | $self->is_empty or $self->is_root |
227 | 3 | 3 | 14 | $self->is_empty or $self->is_root |