| line |
true |
false |
branch |
|
55
|
0 |
0 |
unless defined $server |
|
63
|
0 |
0 |
unless $this->update |
|
80
|
0 |
0 |
unless $client->run('index', 'forward') |
|
81
|
0 |
0 |
unless my $result = $client->result |
|
82
|
0 |
0 |
unless $result = (values %$result)[0] |
|
83
|
0 |
0 |
unless my $config = DynGig::Range::Cluster::Config::unzip($result) |
|
104
|
0 |
0 |
if (not defined $cache) { } |
|
|
0 |
0 |
elsif (not defined $$this{'cache'}) { } |
|
111
|
0 |
0 |
unless defined $path |
|
113
|
0 |
0 |
if (-d $path) { } |
|
115
|
0 |
0 |
unless -w $path and -x $path |
|
119
|
0 |
0 |
if -e $path |
|
120
|
0 |
0 |
unless mkdir $path |
|
128
|
0 |
0 |
unless (-f $md5) |
|
130
|
0 |
0 |
unless open my $handle, '+>', $md5 |
|
136
|
0 |
0 |
defined $param{'link'} ? : |
|
138
|
0 |
0 |
if -l $link and not unlink($link) |
|
139
|
0 |
0 |
unless symlink $md5, $link |
|
154
|
0 |
0 |
our $AUTOLOAD =~ /::(\w+)$/ ? : |