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