blib/lib/Path/Abstract/Underload.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 38 | 44 | 86.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
76 | 1122 | 3 | 0 | ref $_ && (ref $_ eq 'Path::Abstract::Underload' || &blessed($_) && $_->isa('Path::Abstract::Underload')) |
81 | 132 | 391 | 263 | $_[0] && substr($_[0], 0, 1) eq '/' |
83 | 132 | 513 | 141 | $path && substr($path, -1) eq '/' |
92 | 31 | 645 | 110 | $path ne '/' and $trailing |
169 | 47 | 7 | 0 | 1 == @path and '' eq $path[0] |
171 | 4 | 15 | 10 | defined $path[0] && length $path[0] |
178 | 15 | 30 | 3 | $index == @path - 1 and not defined $path[$index] |
179 | 3 | 0 | 45 | defined $path[$index] and length $path[$index] |
225 | 6 | 24 | 0 | @_ and not defined $_[0] |
line | l | !l | condition |
---|---|---|---|
240 | 9 | 21 | $options->{'match'} || 1 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
124 | 4 | 6 | 9 | !$$self || substr($$self, 0, 1) ne '/' |
178 | 3 | 0 | 45 | $index == @path - 1 and not defined $path[$index] or not length $path[$index] |
244 | 1 | 29 | 0 | $matcher eq '' or $matcher =~ /^\d+$/ |
255 | 1 | 1 | 8 | $self->is_empty or $self->is_root |
265 | 3 | 3 | 14 | $self->is_empty or $self->is_root |