| blib/lib/WebShortcutUtil/Write.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 134 | 14 | 4 | if (not defined $length) { } |
| 138 | 1 | 3 | if ($length < $min_length) |
| 143 | 1 | 16 | unless (defined $name) |
| 155 | 2 | 15 | if ($clean_name eq '') |
| 190 | 2 | 8 | if (-e $filename) |
| 226 | 0 | 2 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 239 | 0 | 2 | unless open my $file, '>', $filename |
| 253 | 0 | 2 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 266 | 0 | 2 | unless open my $file, '>:encoding(UTF-8)', $filename |
| 301 | 1 | 1 | if ($url ne $ascii_url) |
| 319 | 0 | 6 | unless eval "use $module $list; 1" |