| line |
true |
false |
branch |
|
69
|
1 |
9 |
@_ < 2 ? : |
|
72
|
1 |
9 |
if (delete $self{'inactive'}) |
|
78
|
9 |
0 |
unless $self{'expiration'} |
|
79
|
9 |
0 |
unless length($self{'delimiter'} || '') |
|
80
|
9 |
0 |
unless defined $self{'namespace'} |
|
84
|
0 |
9 |
$self{'group_names'} ? : |
|
89
|
0 |
9 |
unless eval "require $memcached_class; 1" |
|
98
|
9 |
9 |
unless $spec |
|
101
|
1 |
8 |
if (&blessed($spec)) |
|
104
|
1 |
0 |
if (my $servers = $spec->{'servers'}) |
|
113
|
5 |
3 |
if (not $type) { } |
|
|
1 |
2 |
elsif ($type eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($type eq 'HASH') { } |
|
134
|
1 |
1 |
if (not $type) { } |
|
|
1 |
0 |
elsif ($type eq 'ARRAY') { } |
|
152
|
0 |
8 |
unless $parameters |
|
160
|
0 |
9 |
unless &blessed($self{'data'}) |
|
163
|
9 |
0 |
unless &blessed($self{'directory'}) |
|
250
|
0 |
0 |
if $fetched != $value |
|
255
|
0 |
0 |
wantarray ? : |
|
297
|
0 |
0 |
unless $self->_check_socket |
|
302
|
0 |
0 |
@_ == 1 ? : |
|
340
|
0 |
0 |
unless exists $group_names->{$group_name} |
|
385
|
0 |
0 |
unless $reset |
|
421
|
0 |
0 |
unless defined $interval |
|
431
|
0 |
0 |
$interval ? : |
|
432
|
0 |
0 |
if $self->_oneline($data, $action, $_, 'OK') |
|
433
|
0 |
0 |
if $interval |
|
462
|
0 |
0 |
unless $self->_check_socket |
|
467
|
0 |
0 |
@_ == 1 ? : |
|
511
|
0 |
0 |
if keys %param > 1 |
|
515
|
0 |
0 |
unless exists $self->{'_group_names'}{$group_name} |
|
531
|
0 |
0 |
if ($delete) |
|
549
|
0 |
0 |
if $delete |
|
557
|
0 |
0 |
unless wantarray |
|
583
|
0 |
0 |
unless $self->_check_socket |
|
590
|
0 |
0 |
@_ == 1 ? : |
|
661
|
0 |
0 |
unless $self->_check_socket |
|
669
|
0 |
0 |
if keys %param > 1 |
|
677
|
0 |
0 |
unless exists $self->{'_group_names'}{$group_name} |
|
719
|
0 |
0 |
wantarray ? : |
|
781
|
0 |
0 |
$data == $directory ? : |
|
784
|
0 |
0 |
if $_->can('disconnect_all') |
|
787
|
0 |
0 |
if $_->can('forget_dead_hosts') |
|
834
|
14 |
3 |
wantarray ? : |
|
852
|
8 |
0 |
unless @_ |
|
862
|
0 |
8 |
unless system 'memcached', '-d', '-u', scalar getpwuid $>, '-l', $ip, '-p', $port |
|
891
|
0 |
3 |
unless $self->_check_socket |
|
900
|
0 |
3 |
@_ ? : |
|
904
|
3 |
3 |
unless exists $todo{$host} and not exists $result{$host} |
|
994
|
0 |
0 |
unless ($version) |
|
1000
|
0 |
0 |
unless defined $namespace |
|
1011
|
0 |
0 |
if (my $type = ref $id) |
|
1012
|
0 |
0 |
if ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
1051
|
0 |
0 |
unless @_ |
|
1070
|
0 |
0 |
if (my $result = $directory->get_multi(splice(@_, 0, $atatime))) { } |
|
1071
|
0 |
0 |
if ($nocleanup) { } |
|
1094
|
0 |
0 |
if (exists $data_key{$data_key}) { } |
|
1120
|
0 |
0 |
unless ($nocleanup) |
|
1144
|
3 |
0 |
if $$ == $_[0]{'_last_pid'} and not exists $_[0]{'_disconnected'} |
|
1150
|
0 |
0 |
if $$ != $self->{'_last_pid'} |
|
1156
|
0 |
0 |
if $self->{'_disconnected'} and time > $self->{'_disconnected'} |
|
1176
|
0 |
0 |
if $key and $key =~ /.+::/ || $key =~ m[^/] |
|
1192
|
0 |
0 |
if ($key =~ s/^:://) |
|
1242
|
0 |
0 |
unless $self->_check_socket |
|
1247
|
0 |
0 |
@_ > 3 ? : |
|
1260
|
0 |
0 |
if $id and $id eq ':unique' |
|
1262
|
0 |
0 |
if not defined $value and $method =~ /(?:decr|incr)$/ |
|
1283
|
0 |
0 |
if ($result) { } |
|
|
0 |
0 |
elsif ($method eq 'incr') { } |
|
|
0 |
0 |
elsif ($method ne 'set') { } |
|
1284
|
0 |
0 |
if $method =~ /^(?:decr|incr|replace)$/ |
|
1293
|
0 |
0 |
unless ($result) |
|
1296
|
0 |
0 |
if ($data->can('get_sock')) |
|
1297
|
0 |
0 |
if (my $bucket = $data->get_sock($data_key)) |
|
1300
|
0 |
0 |
if ($bucket =~ s/^Sock_//) |
|
1301
|
0 |
0 |
unless $directory->incr($bucket) |
|
1332
|
0 |
0 |
unless (defined $index) |
|
1333
|
0 |
0 |
unless (defined $directory->add($directory_key, $index = 1)) |
|
1343
|
0 |
0 |
unless ($directory->set($self->_index_key($directory_key, $index), $data_key, $expiration)) |
|
1371
|
1 |
18 |
unless defined $expiration |
|
1372
|
1 |
17 |
unless $expiration =~ /^[sSmMhHdDwW\d]+$/ |
|
1376
|
1 |
16 |
unless $expiration =~ /\D/ |
|
1385
|
4 |
12 |
if $expiration =~ /(\d+)[sS]/ |
|
1386
|
4 |
12 |
if $expiration =~ /(\d+)[mM]/ |
|
1387
|
4 |
12 |
if $expiration =~ /(\+?\d+)[hH]/ |
|
1388
|
4 |
12 |
if $expiration =~ /(\+?\d+)[dD]/ |
|
1389
|
4 |
12 |
if $expiration =~ /(\+?\d+)[wW]/ |
|
1423
|
0 |
0 |
unless my $found = $self->directory->get($directory_key) |
|
1446
|
0 |
0 |
if $_[1] =~ /^::/ |
|
1469
|
0 |
0 |
defined $v ? : |
|
1524
|
0 |
3 |
unless $cache->can('sock_to_host') |
|
1527
|
3 |
0 |
unless my $socket = $cache->sock_to_host($host) |
|
1530
|
0 |
0 |
/^(?:END|ERROR)/ ? : |
|
1548
|
0 |
0 |
unless $cache->can('get_sock') |
|
1551
|
0 |
0 |
unless my $socket = $cache->get_sock([$bucket || 0, 0]) |
|
1554
|
0 |
0 |
unless $_oneline ||= $cache->can('_oneline') || $cache->can('_write_and_read') |
|
1560
|
0 |
0 |
defined $send ? : |
|
1565
|
0 |
0 |
unless defined $expect |
|
1599
|
0 |
0 |
if (not defined $type) { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |