| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless defined $conf |
|
41
|
0 |
0 |
unless opendir $handle, $conf |
|
45
|
0 |
0 |
if not $name =~ /^\./o and -f ($file = 'File::Spec'->join($conf, $name)) |
|
63
|
0 |
0 |
unless my $buffer = &Compress::Zlib::uncompress($_[0]) |
|
64
|
0 |
0 |
unless my $this = eval {
do {
YAML::XS::Load($buffer)
}
} |
|
65
|
0 |
0 |
ref $this eq 'DynGig::Range::Cluster::Config' ? : |
|
77
|
0 |
0 |
unless @_ |
|
108
|
0 |
0 |
if $$conf[1] and $mtime <= $$conf[1] |
|
114
|
0 |
0 |
wantarray ? : |
|
138
|
0 |
0 |
unless %{$$table{$key};} |
|
160
|
0 |
0 |
if (our $AUTOLOAD =~ /::DB_(\w+)$/) { } |
|
|
0 |
0 |
elsif ($AUTOLOAD =~ /::(\w+)$/ and $$K{$1}) { } |
|
164
|
0 |
0 |
if ($key =~ /^(cluster|table)s$/) { } |
|
|
0 |
0 |
elsif ($$this{$key}) { } |
|
166
|
0 |
0 |
unless $$this{$1} |
|
167
|
0 |
0 |
wantarray ? : |
|
172
|
0 |
0 |
defined $table ? : |
|
183
|
0 |
0 |
if (defined $key and defined $value) { } |
|
|
0 |
0 |
elsif (defined $cluster) { } |
|
188
|
0 |
0 |
wantarray ? : |
|
192
|
0 |
0 |
if (defined $value) { } |
|
|
0 |
0 |
elsif (defined $key) { } |
|
196
|
0 |
0 |
if ($list and @$list == 1 and $$list[0] =~ /^##(.+)/) |
|
200
|
0 |
0 |
if (@param >= 1) |
|
205
|
0 |
0 |
if (-f $pfile) |
|
218
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if $list |