| blib/lib/DB/SimpleKV.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 0 | unless (-f $file) |
| 24 | 0 | 0 | unless open my $db, ">", $file |
| 36 | 0 | 0 | unless open my $db, $self->{'file'} |
| 41 | 0 | 0 | if ($k eq $key) |
| 57 | 0 | 0 | unless open my $db, $self->{'file'} |
| 68 | 0 | 0 | unless open my $dbx, ">", $self->{'file'} |
| 80 | 0 | 0 | unless open my $db, $self->{'file'} |
| 91 | 0 | 0 | unless open my $dbx, ">", $self->{'file'} |
| 103 | 0 | 0 | unless open my $db, $self->{'file'} |
| 108 | 0 | 0 | if ($k eq $key) |