blib/lib/File/Spec/Link.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 18 | 27.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
65 | 0 | 0 | 0 | $_[0] =~ /^opendir\b/ and $_[0] =~ /\bNot\s+a\s+directory\b/ |
0 | 0 | 0 | $_[0] =~ /^opendir\b/ and $_[0] =~ /\bNot\s+a\s+directory\b/ and $Cwd::VERSION < 2.18 | |
0 | 0 | 0 | $_[0] =~ /^opendir\b/ and $_[0] =~ /\bNot\s+a\s+directory\b/ and $Cwd::VERSION < 2.18 and not -d $file | |
124 | 0 | 0 | 1 | length $dirs[-1] and $dirs[-1] ne $self->curdir |
158 | 30 | 4 | 1 | @$dirs == 1 and not length $$dirs[0] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
124 | 0 | 0 | 1 | not @dirs or $dirs[-1] eq $self->updir |