| line |
true |
false |
branch |
|
83
|
0 |
25 |
unless Net::DRI::Util::all_valid($regname, $type, $key) |
|
86
|
24 |
1 |
unless defined $ttl |
|
87
|
0 |
25 |
$ttl == 0 ? : |
|
93
|
25 |
0 |
if ($data and ref $data eq 'HASH') |
|
101
|
4 |
21 |
if ($$self{'ttl'} >= 0) |
|
103
|
2 |
2 |
unless exists $$self{'data'}{$type} |
|
114
|
0 |
0 |
unless Net::DRI::Util::all_valid($type, $key) |
|
115
|
0 |
0 |
unless exists $$self{'data'}{$type} |
|
124
|
5 |
5 |
if $$self{'ttl'} < 0 |
|
125
|
0 |
5 |
unless Net::DRI::Util::all_valid($type, $key) |
|
127
|
0 |
5 |
unless exists $$self{'data'}{$type} |
|
128
|
0 |
5 |
unless exists $$self{'data'}{$type}{$key} |
|
132
|
1 |
4 |
if ($$c{'_until'} > 0 and Net::DRI::Util::microtime() > $$c{'_until'}) |
|
138
|
1 |
3 |
if defined $from and $$c{'_from'} ne $from |
|
140
|
3 |
0 |
if (defined $data) { } |
|
142
|
3 |
0 |
if exists $$c{$data} |
|
160
|
1 |
0 |
if $$c2{'_until'} > 0 and $now > $$c2{'_until'} |