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