4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
5 |
# Created On : Thu Aug 8 13:05:10 1996 |
# Created On : Thu Aug 8 13:05:10 1996 |
6 |
# Last Modified By: Ulrich Pfeifer |
# Last Modified By: Ulrich Pfeifer |
7 |
# Last Modified On: Sun Nov 12 14:40:21 2000 |
# Last Modified On: Mon Dec 31 14:30:05 2001 |
8 |
# Language : CPerl |
# Language : CPerl |
9 |
# |
# |
10 |
# (C) Copyright 1996-2000, Ulrich Pfeifer |
# (C) Copyright 1996-2000, Ulrich Pfeifer |
421 |
&{$self->{func}}(@_); |
&{$self->{func}}(@_); |
422 |
} |
} |
423 |
|
|
|
sub keys { |
|
|
my $self = shift; |
|
|
|
|
|
defined $self->{db} or $self->open; |
|
|
keys %{$self->{db}}; |
|
|
} |
|
|
|
|
424 |
sub search_prefix { |
sub search_prefix { |
425 |
my $self = shift; |
my $self = shift; |
426 |
|
|
727 |
} |
} |
728 |
} |
} |
729 |
|
|
730 |
|
sub keys { |
731 |
|
my $self = shift; |
732 |
|
|
733 |
|
defined $self->{db} or $self->open; |
734 |
|
keys %{$self->{db}}; |
735 |
|
} |
736 |
|
|
737 |
1; |
1; |
738 |
|
|