|
sub TIEHASH ($;@) {
my ( $class , @args ) = @_ ;
bless \ @args , $class ;
}
sub FETCH ($$) {
my ( $self , $key ) = @_ ;
y_get @$self , $key ;
}
sub STORE ($$$) {
my ( $self , $key , $value ) = @_ ;
y_set @$self , $key , $value ;
}
sub DELETE ($$) {
my ( $self , $key ) = @_ ;
y_kill_node @$self , $key ;
}
sub EXISTS ($$) {
my ( $self , $key ) = @_ ;
1 & y_data @$self , $key ;
}
sub FIRSTKEY ($) {
my ( $self , $key ) = ( shift , "" );
do {
$key = y_next @$self , $key ;
} while ( defined $key && !(1 & y_data @$self , $key ));
$key ;
}
sub NEXTKEY ($$) {
my ( $self , $key ) = @_ ;
do {
$key = y_next @$self , $key ;
} while ( defined $key && !(1 & y_data @$self , $key ));
$key ;
}
sub CLEAR ($) {
my ( $self , $x ) = ( shift , "" );
y_kill_node ( @$self , $x ) while ( defined ( $x = y_next @$self , $x ));
}
sub UNTIE ($) {
}
sub DESTROY ($) {
}
1;
|