| line |
true |
false |
branch |
|
40
|
0 |
0 |
if $self->{'cache_dir'}
|
|
41
|
0 |
0 |
if $self->{'cache_file'}
|
|
50
|
0 |
0 |
if (@_)
|
|
62
|
0 |
0 |
if (@_)
|
|
66
|
0 |
0 |
if $f eq $self->{'cache_file'}
|
|
67
|
0 |
0 |
if (-e $f)
|
|
83
|
0 |
0 |
if @_ and $self->_is_hash($_[0])
|
|
86
|
0 |
0 |
unless length $opts->{$k}
|
|
91
|
0 |
0 |
unless exists $$cache{$opts->{'host'}}{$opts->{'driver'}}{$opts->{'port'}}{$opts->{'database'}}{'tables'}
|
|
94
|
0 |
0 |
if $opts->{'ignore_ttl'} or $ts and time - $ts < $timeout
|
|
105
|
0 |
0 |
if ($tables_cache_file->exists and not $tables_cache_file->is_empty)
|
|
107
|
0 |
0 |
if (my $fh = $tables_cache_file->open_utf8) { }
|
|
117
|
0 |
0 |
if ($@)
|
|
134
|
0 |
0 |
unless $self->_is_hash($hash)
|
|
137
|
0 |
0 |
unless length $hash->{$k}
|
|
139
|
0 |
0 |
unless $self->_is_array($hash->{'tables'})
|
|
144
|
0 |
0 |
if (-s $f and $last_update and (stat $f)[9] != $last_update)
|
|
148
|
0 |
0 |
if ref $$cache{$hash->{'host'}}{$hash->{'driver'}}{$hash->{'port'}}{$hash->{'database'}} ne "HASH"
|
|
151
|
0 |
0 |
unless (defined $self->write($cache))
|
|
168
|
0 |
0 |
if ref $hash ne "HASH"
|
|
170
|
0 |
0 |
if (my $fh = $tables_cache_file->open_utf8('>')) { }
|
|
|
0 |
0 |
elsif (-e $tables_cache_file and not -w $tables_cache_file) { }
|
|
177
|
0 |
0 |
unless $fh->print($j->encode($hash))
|