Branch Coverage

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