return &{$val}($this,$key);
}
+sub STORE
+{
+my($this,$key,$value)=@_;
+
+ return $this->SUPER::STORE($key,$value) if $key!~/_push$/;
+ my $val_orig=$this->SUPER::FETCH($key);
+ $val_orig=[] if !defined $val_orig;
+ $val_orig=[$val_orig] if "ARRAY" ne ref $val_orig;
+ return $this->SUPER::STORE($key,[@$val_orig,$value]);
+}
+
1;