| blib/lib/File/Copy/NoClobber.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 26 | 80.7 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 1 | 11 | if (exists $args{-'warn'}) |
| 45 | 0 | 12 | if (sprintf($ptn, 1) eq sprintf($ptn, 2)) |
| 56 | 32 | 3 | -d $to ? : |
| 62 | 32 | 3 | if (-d $to) { } |
| 1 | 2 | elsif (-f $to) { } | |
| 69 | 0 | 35 | unless ($write_test) |
| 73 | 34 | 1 | if (-f $from and ref $to ne 'GLOB') |
| 75 | 1 | 33 | unless (-d dirname($to)) |
| 96 | 0 | 18 | if ($count > $MAX_COUNT) |
| 102 | 0 | 33 | unless (fileno $fh) |
| 111 | 1 | 33 | if ($dest_file ne $orig_dest_file and $WarnNewFile) |
| 156 | 13 | 22 | if ($fn =~ /\./) { } |
| 157 | 0 | 13 | unless $fn =~ s/ (?= \. [^\.]+ $ ) /$pattern;/ex |