61 |
sadd => 1, srem => 1, |
sadd => 1, srem => 1, |
62 |
sismember => 1, |
sismember => 1, |
63 |
echo => 1, |
echo => 1, |
64 |
|
getset => 1, |
65 |
|
smove => 1, |
66 |
|
zadd => 1, |
67 |
|
zrem => 1, |
68 |
|
zscore => 1, |
69 |
|
zincrby => 1, |
70 |
|
append => 1, |
71 |
}; |
}; |
72 |
|
|
73 |
# we don't want DESTROY to fallback into AUTOLOAD |
# we don't want DESTROY to fallback into AUTOLOAD |
133 |
} |
} |
134 |
|
|
135 |
if ( $type eq '-' ) { |
if ( $type eq '-' ) { |
136 |
confess $result; |
confess "[$command] $result"; |
137 |
} elsif ( $type eq '+' ) { |
} elsif ( $type eq '+' ) { |
138 |
return $result; |
return $result; |
139 |
} elsif ( $type eq '$' ) { |
} elsif ( $type eq '$' ) { |