| blib/lib/Tie/SymlinkTree.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 46 | 36.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 83 | 1 | 2 | 0 | -e $path and -l $path |
| 116 | 2 | 1 | 0 | ref $val and ref $val ne 'HASH' |
| 3 | 0 | 0 | ref $val and ref $val ne 'HASH' and ref $val ne 'ARRAY' | |
| 128 | 0 | 0 | 0 | not $recursion and $@ |
| 133 | 0 | 1 | 0 | not $recursion and $@ |
| 159 | 0 | 0 | 0 | substr($self->id, 0, 1) ne '.' and -d $$self{'PATH'} . "../.index-$key" |
| 315 | 2 | 0 | 0 | not symlink($$, $$self{'PATH'} . '.lock') and $i++ < 40 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 85 | 1 | 0 | 0 | mkdir $path or -d $path |
| 118 | 0 | 0 | 1 | ref $val eq 'ARRAY' or ref $val eq 'Tie::SymlinkTree::Array' |
| 121 | 0 | 0 | 0 | rename $$self{'PATH'} . ".$$~" . $key, $$self{'PATH'} . $key or $recursion |
| 124 | 2 | 0 | 0 | rename $$self{'PATH'} . ".$$~" . $key, $$self{'PATH'} . $key or $recursion |
| 177 | 3 | 3 | 5 | $subdir eq '.' or $subdir eq '..' |
| 196 | 0 | 1 | 2 | -e $$self{'PATH'} . $key || -l $$self{'PATH'} . $key |
| 335 | 0 | 0 | 6 | $create or -d $$tie{'PATH'} . '.index/' |
| line | l&&r | l&&!r | !l&&r | !l&&!r | condition |
|---|---|---|---|---|---|
| 88 | 0 | 0 | 0 | 3 | -e $path . '.array' xor $$self{'ARRAY'} |