Lines Matching refs:key
26 for my $key (keys %opts) {
27 unless ($good_opt{$key}) {
28 croak("$pack: Unrecognized option '$key'\n");
30 my $okey = $key;
31 if ($key =~ s/^-+//) {
32 $opts{$key} = delete $opts{$okey};
1167 for my $key (keys %{$self->{deferred}}) {
1168 $max = $key if $key > $max;
1486 # $k is the hash key of the item
1499 my ($self, $key, $val) = @_;
1501 croak "missing argument to ->insert" unless defined $key;
1509 # $self->[STAT][$key] = 1;
1513 my $oldnode = $self->[HASH]{$key};
1518 $self->[HEAP]->insert($key, $val);
1537 # for my $key (@keys) {
1538 # $self->[STAT][$key] = 0;
1543 for my $key (@keys) {
1544 next unless exists $self->[HASH]{$key};
1545 my $old_data = $self->[HEAP]->remove($self->[HASH]{$key});
1553 my ($self, $key) = @_;
1555 croak "missing argument to ->lookup" unless defined $key;
1558 # $self->[MISS]++ if $self->[STAT][$key]++ == 0;
1565 if (exists $self->[HASH]{$key}) {
1566 $self->[HEAP]->lookup($self->[HASH]{$key});
1574 my ($self, $key) = @_;
1575 my $loc = $self->[HASH]{$key};
1582 my ($self, $key) = @_;
1583 $self->[HEAP]->promote($self->[HASH]{$key});
1602 my ($self, $key, $val) = @_;
1604 croak "missing argument to ->update" unless defined $key;
1606 my ($oldval) = $self->remove($key);
1608 } elsif (exists $self->[HASH]{$key}) {
1609 my $oldval = $self->[HEAP]->set_val($self->[HASH]{$key}, $val);
1613 $self->[HEAP]->insert($key, $val);
1689 _ci_warn "Cache hash key <$k> is non-numeric";
1695 _ci_warn "Heap index number for key $k is undefined";
1698 _ci_warn "Heap index number for key $k is zero";
1703 _ci_warn "Heap contents key $k (=> $h) are undefined";
1708 _ci_warn "Heap contents key $k (=> $h) is $j->[1], should be $k";
1804 my ($self, $key, $data, $seq) = @_;
1806 $self->_insert_new([$seq, $key, $data]);
1924 # The hask key has changed for an item;
1925 # alter the heap's record of the hash key