| blib/lib/File/Copy/Recursive/Reduced.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 39 | 84.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 189 | 0 | 59 | 6 | $path and not -d $path |
| 193 | 61 | 0 | 4 | -l $from and $CopyLink |
| 59 | 0 | 2 | -d $from and -f $to | |
| 327 | 11 | 10 | 3 | -e $_[1] and not -d $_[1] |
| 359 | 90 | 90 | 119 | $_ ne '.' && $_ ne '..' |
| 366 | 110 | 0 | 9 | -l $from and $CopyLink |
| 398 | 4 | 4 | 100 | defined $from and defined $to |
| 411 | 4 | 100 | 4 | $one and $one eq $two |
| 469 | 21 | 0 | 2 | -l $_[0] and $CopyLink |
| line | l | !l | condition |
|---|---|---|---|
| 355 | 69 | 0 | mkdir $end or return |
| 409 | 104 | 4 | join('-', (stat $from)[0, 1]) || '' |
| 410 | 36 | 72 | join('-', (stat $to)[0, 1]) || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 327 | 1 | 3 | 21 | not -d $_zero or -e $_[1] and not -d $_[1] |
| 471 | 11 | 1 | 9 | -d $_[0] or substr($_[0], -1, 1) eq "*" |