Lines Matching refs:rlen
47 my $rlen = 1 + $klen + $vlen;
50 local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
51 $$self[0] x= $rlen * $tsize->[1];
64 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
67 $offset = $hash * $rlen;
68 $record = substr($$self[0], $offset, $rlen);
83 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
91 $offset = $hash * $rlen;
92 $record = substr($$self[0], $offset, $rlen);
95 die "panic" unless length($record) == $rlen;
97 substr($$self[0], $writeoffset, $rlen) = $record;
106 die "panic" unless length($record) == $rlen;
107 substr($$self[0], $offset, $rlen) = $record;
116 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
119 $offset = $hash * $rlen;
120 $record = substr($$self[0], $offset, $rlen);
143 local($klen, $vlen, $tsize, $rlen, $entries, $iterix) = @$self[1..6];
145 next unless substr($$self[0], $iterix * $rlen, 1) eq "\2";
147 return substr($$self[0], $iterix * $rlen + 1, $klen);