Lines Matching refs:HASH

1455 sub HASH () { 1 }  subroutine
1492     $self->[HASH]{$k} = $n;
1494     delete $self->[HASH]{$k};
1513   my $oldnode = $self->[HASH]{$key};
1544     next unless exists $self->[HASH]{$key};
1545     my $old_data = $self->[HEAP]->remove($self->[HASH]{$key});
1565   if (exists $self->[HASH]{$key}) {
1566     $self->[HEAP]->lookup($self->[HASH]{$key});
1575   my $loc = $self->[HASH]{$key};
1583   $self->[HEAP]->promote($self->[HASH]{$key});
1588   %{$self->[HASH]} = ();
1598   keys %{$self->[HASH]} == 0;
1608   } elsif (exists $self->[HASH]{$key}) {
1609     my $oldval = $self->[HEAP]->set_val($self->[HASH]{$key}, $val);
1629     $adjusted{$nkeys->[$_]} = delete $self->[HASH]{$okeys->[$_]};
1634     $self->[HASH]{$nk} = $ix;
1640   my @a = keys %{$self->[HASH]};
1686   for my $k (keys %{$self->[HASH]}) {
1692     my $h = $self->[HASH]{$k};