| lib/Templer/Site/New.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 102 | 1 | 0 | unless defined $force |
| 124 | 5 | 236 | if ($line =~ /^mkdir(.*)/) { } |
| 5 | 231 | elsif (not $name || $marker and $line =~ /file\s+([^\s]+)\s+([^\s]+)/) { } | |
| 130 | 5 | 0 | unless (-d $dir) |
| 156 | 221 | 10 | if ($name and $marker) |
| 158 | 5 | 216 | if ($line eq $marker) { } |
| 161 | 0 | 5 | if (-e $base . "/" . $name) |
| 163 | 0 | 0 | unless $force |
| 166 | 5 | 0 | if ($create) { } |
| 170 | 0 | 5 | unless open my $handle, ">:utf8", $dst |