| lib/HTTPD/GroupAdmin/Text.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 28 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 4 | if $self->debug |
| 35 | 0 | 4 | unless $db =~ /^([^<>;|]+)$/ |
| 36 | 1 | 3 | unless open $fh, $db |
| 40 | 0 | 3 | unless $key =~ /\S/ |
| 41 | 0 | 3 | exists $$self{'_HASH'}{$key} ? : |
| 50 | 1 | 1 | unless exists $$self{'_HASH'} |
| 62 | 1 | 5 | if $self->readonly |
| 66 | 0 | 5 | unless $db =~ /^([^<>;|]+)$/ |
| 69 | 0 | 5 | unless open $fh, ">$tmp_db" |
| 72 | 0 | 9 | unless print $fh $self->_formatline($key, $val) |
| 75 | 0 | 5 | unless close $fh |
| 78 | 4 | 1 | if $mode |
| 79 | 0 | 5 | unless rename $tmp_db, $db |
| 110 | 0 | 6 | if $self->readonly |