| blib/lib/WebShortcutUtil/Write.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 134 | 16 | 4 | if (not defined $length) { } |
| 138 | 1 | 3 | if ($length < $min_length) |
| 143 | 1 | 18 | unless (defined $name) |
| 154 | 2 | 17 | if ($clean_name eq '') |
| 189 | 4 | 10 | if (-e $filename) |
| 225 | 0 | 3 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 238 | 0 | 3 | unless open my $file, '>', $filename |
| 252 | 0 | 2 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 265 | 0 | 2 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 305 | 1 | 2 | if (is_utf8 $url) { } |
| 323 | 0 | 6 | unless eval "use $module $list; 1" |