Lines Matching refs:_
195 $pkg->TIEHASH(@_);
215 $pkg -> new (@_);
223 my $pkg = ref $_[0];
229 my $key = $self->FIRSTKEY(@_);
234 $key = $self->NEXTKEY(@_, $key);
237 $self->DELETE(@_, $key);
248 sub TIEHASH { bless {}, $_[0] }
249 sub STORE { $_[0]->{$_[1]} = $_[2] }
250 sub FETCH { $_[0]->{$_[1]} }
251 sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
252 sub NEXTKEY { each %{$_[0]} }
253 sub EXISTS { exists $_[0]->{$_[1]} }
254 sub DELETE { delete $_[0]->{$_[1]} }
255 sub CLEAR { %{$_[0]} = () }
256 sub SCALAR { scalar %{$_[0]} }
260 sub TIEHASH { my $p = shift; bless [{}, @_], $p }
261 sub STORE { $_[0][0]{$_[1]} = $_[2] }
262 sub FETCH { $_[0][0]{$_[1]} }
263 sub FIRSTKEY { my $a = scalar keys %{$_[0][0]}; each %{$_[0][0]} }
264 sub NEXTKEY { each %{$_[0][0]} }
265 sub EXISTS { exists $_[0][0]->{$_[1]} }
266 sub DELETE { delete $_[0][0]->{$_[1]} }
267 sub CLEAR { %{$_[0][0]} = () }
268 sub SCALAR { scalar %{$_[0][0]} }