13 if (defined &{"{$pack}::new"}) {
14 carp "WARNING: calling ${pack}->new since ${pack}->TIEHASH is missing"
19 croak "$pack doesn't define a TIEHASH method";
25 croak "$pack doesn't define an EXISTS method";
30 my $key = $self->FIRSTKEY(@_);
33 while (defined $key) {
35 $key = $self->NEXTKEY(@_, $key);
37 foreach $key (@keys) {
38 $self->DELETE(@_, $key);