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'} |