| line |
true |
false |
branch |
|
50
|
0 |
0 |
unless ($data_dir) |
|
53
|
0 |
0 |
if (-w "/var/lib") |
|
55
|
0 |
0 |
if (-d $system_dir or mkdir $system_dir, 493) |
|
61
|
0 |
0 |
unless ($data_dir) |
|
67
|
0 |
0 |
unless -d $data_dir |
|
97
|
0 |
0 |
unless defined $key |
|
100
|
0 |
0 |
if utf8::is_utf8($key) |
|
105
|
0 |
0 |
if (defined $value and not utf8::is_utf8($value)) |
|
120
|
0 |
0 |
unless defined $key |
|
121
|
0 |
0 |
unless defined $value |
|
124
|
0 |
0 |
if utf8::is_utf8($key) |
|
125
|
0 |
0 |
if utf8::is_utf8($value) |
|
141
|
0 |
0 |
unless defined $key |
|
144
|
0 |
0 |
if utf8::is_utf8($key) |
|
146
|
0 |
0 |
if (exists $self->{'cache'}{$key}) |
|
163
|
0 |
0 |
unless defined $key |
|
166
|
0 |
0 |
if utf8::is_utf8($key) |
|
168
|
0 |
0 |
exists $self->{'cache'}{$key} ? : |
|
181
|
0 |
0 |
unless $self->{'dirty'} |
|
196
|
0 |
0 |
unless eval {
do {
&decode_utf8($_)
}
} |
|
217
|
0 |
0 |
unless -f $self->{'data_file'} |
|
220
|
0 |
0 |
unless open my $fh, "<", $self->{'data_file'} |
|
228
|
0 |
0 |
if ($@) |
|
240
|
0 |
0 |
unless open my $fh, "+>", $self->{'data_file'} |
|
243
|
0 |
0 |
unless flock $fh, 2 |
|
249
|
0 |
0 |
unless store_fd($self->{'cache'}, $fh) |
|
254
|
0 |
0 |
unless close $fh |
|
260
|
0 |
0 |
if ($@) |
|
271
|
0 |
0 |
if ($self->{'dirty'}) |
|
273
|
0 |
0 |
if $@ |