| lib/HTTPD/UserAdmin/Text.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 22 | 63.6 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 4 | if $self->debug |
| 34 | 0 | 4 | unless $db =~ /^([^<>;|]+)$/ |
| 35 | 1 | 3 | unless open $fh, $db |
| 47 | 0 | 2 | unless exists $$self{'_HASH'} |
| 54 | 2 | 5 | if $self->readonly |
| 58 | 0 | 5 | unless $db =~ /^([^<>;|]+)$/ |
| 61 | 0 | 5 | unless open $fh, ">$tmp_db" |
| 64 | 0 | 8 | unless print $fh $self->_formatline($key, $val) |
| 67 | 0 | 5 | unless close $fh |
| 70 | 4 | 1 | if $mode |
| 71 | 0 | 5 | unless rename $tmp_db, $db |