| line |
true |
false |
branch |
|
39
|
9 |
0 |
unless ref $self |
|
62
|
0 |
0 |
if ($key eq 'nodefile') |
|
65
|
0 |
0 |
if ($val =~ /^(?:none|undef|null|""|'')$/) |
|
74
|
0 |
0 |
unless -e $val |
|
86
|
0 |
0 |
if ($key eq 'balance_method') |
|
90
|
0 |
0 |
unless $val |
|
103
|
0 |
0 |
if (my $nodefile = $$self{'nodefile'}) { } |
|
126
|
0 |
0 |
unless $$self{'nodefile'} |
|
128
|
0 |
0 |
if ($Perlbal::OPTMOD_LINUX_AIO) { } |
|
147
|
0 |
0 |
if (/(\d+\.\d+\.\d+\.\d+)(?::(\d+))?/) |
|
163
|
0 |
0 |
if $mod == $$self{'nodefile.lastmod'} |
|
166
|
0 |
0 |
unless open NODEFILE, $$self{'nodefile'} |
|
176
|
0 |
0 |
if $$self{'nodefile.checking'} |
|
185
|
0 |
0 |
unless $$self{'nodefile'} |
|
188
|
0 |
0 |
unless -e _ |
|
191
|
0 |
0 |
if $mod == $$self{'nodefile.lastmod'} |
|
195
|
0 |
0 |
unless open NODEFILE, $$self{'nodefile'} |
|
234
|
0 |
20 |
if ($$self{'nodefile'}) |
|
236
|
0 |
0 |
if ($now > $$self{'nodefile.lastcheck'} + 3) |
|
243
|
0 |
20 |
unless $$self{'node_count'} |
|
256
|
120 |
0 |
if $$self{'use_count'} |