[p5sagit/p5-mst-13.2.git] / lib / TieHash.pm

package TieHash;
use Carp;

sub new {
    my $pack = shift;
    $pack->TIEHASH(@_);
}

# Grandfather "new"

sub TIEHASH {
    my $pack = shift;
    if (defined &{"{$pack}::new"}) {
	carp "WARNING: calling ${pack}->new since ${pack}->TIEHASH is missing"
	    if $^W;
	$pack->new(@_);
    }
    else {
	croak "$pack doesn't define a TIEHASH method";
    }
}

sub EXISTS {
    my $pack = ref $_[0];
    croak "$pack doesn't define an EXISTS method";
}

sub CLEAR {
    my $self = shift;
    my $key = $self->FIRSTKEY(@_);
    my @keys;

    while (defined $key) {
	push @keys, $key;
	$key = $self->NEXTKEY(@_, $key);
    }
    foreach $key (@keys) {
	$self->DELETE(@_, $key);
    }
}

1;
Commit	Line	Data
a0d0e21e	1	package TieHash;
	2	use Carp;
	3
	4	sub new {
	5	my $pack = shift;
	6	$pack->TIEHASH(@_);
	7	}
	8
	9	# Grandfather "new"
	10
	11	sub TIEHASH {
	12	my $pack = shift;
	13	if (defined &{"{$pack}::new"}) {
	14	carp "WARNING: calling ${pack}->new since ${pack}->TIEHASH is missing"
	15	if $^W;
	16	$pack->new(@_);
	17	}
	18	else {
	19	croak "$pack doesn't define a TIEHASH method";
	20	}
	21	}
	22
	23	sub EXISTS {
	24	my $pack = ref $_[0];
	25	croak "$pack doesn't define an EXISTS method";
	26	}
	27
	28	sub CLEAR {
	29	my $self = shift;
	30	my $key = $self->FIRSTKEY(@_);
	31	my @keys;
	32
	33	while (defined $key) {
	34	push @keys, $key;
	35	$key = $self->NEXTKEY(@_, $key);
	36	}
	37	foreach $key (@keys) {
	38	$self->DELETE(@_, $key);
	39	}
	40	}
	41
	42	1;