| lib/Ubic/Settings/ConfigFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 0 | 0 | unless (-e $file) |
| 17 | 0 | 0 | unless open my $fh, '<', $file |
| 26 | 0 | 0 | unless close $fh |
| 38 | 0 | 0 | if ($value =~ /\n/) |
| 46 | 0 | 0 | unless open my $fh, '>', $file |
| 47 | 0 | 0 | unless print {$fh;} $content |
| 48 | 0 | 0 | unless close $fh |