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 |