line |
true |
false |
branch |
35
|
0 |
0 |
$ttl_secs ? :
|
39
|
0 |
0 |
if ($ttl_secs)
|
50
|
0 |
0 |
defined $_ ? :
|
56
|
0 |
0 |
if ($ttl_secs)
|
74
|
0 |
0 |
if (@_ == 2) { }
|
81
|
0 |
0 |
if (do {
|
83
|
0 |
0 |
if ($ttl_secs and time - do {
|
101
|
0 |
0 |
if (do {
|
103
|
0 |
0 |
if ($ttl_secs and time - do {
|
123
|
0 |
0 |
unless (delete $args{'refresh'})
|
129
|
0 |
0 |
if ($object) { }
|
|
0 |
0 |
elsif (not defined $object && $object == 0) { }
|
144
|
0 |
0 |
defined $_ ? :
|
147
|
0 |
0 |
if (my $object = __xrdbopriv_get_object($_[0], $key_name, $key_value))
|
158
|
0 |
0 |
if $ret
|
168
|
0 |
0 |
unless $ret
|
180
|
0 |
0 |
unless $ret
|
191
|
0 |
0 |
if $ret
|
248
|
0 |
0 |
if defined wantarray
|
271
|
0 |
0 |
if ($class->cached_objects_expire_in)
|
284
|
28 |
168 |
if ref $class
|
287
|
112 |
84 |
unless @_
|
293
|
0 |
84 |
if ($arg =~ /^now$/i) { }
|
|
0 |
84 |
elsif ($arg =~ /^never$/) { }
|
|
0 |
84 |
elsif ($arg =~ /^\s*([+-]?(?:\d+|\d*\.\d*))\s*$/) { }
|
|
84 |
0 |
elsif ($arg =~ /^\s*([+-]?(?:\d+(?:\.\d*)?|\d*\.\d+))\s*(\w*)\s*$/ and exists $Expiration_Units{$2}) { }
|