=pod Memo
tieインターフェイスはうまく動かせない。
$rubyobject->{$key} = $rubyval;
この代入コードは何故か$$rubyvalのREFCNTを増加させてしまうようだ。
また,現在はインスタンス変数にアクセスするためにハッシュインターフェイスを用いているので,そのままではハッシュインターフェイスは使えない。
=cut
{
our $NEGATIVE_INDICES = 1; # for tied array
no strict 'refs';
*FETCHSIZE = \&size;
*STORESIZE = \&resize;
*FETCH = \&{'Ruby::Object::[]'};
*STORE = \&{'Ruby::Object::[]='};
*EXISTS = \&has_key;
*DELETE = \&delete;
*CLEAR = \&clear;
*PUSH = \&push;
*POP = \&pop;
*SHIFT = \&shift;
*UNSHIFT = \&unshift;
*SPLICE = \&splice;
sub EXTEND{}
}