diff options
| -rw-r--r-- | fml/lib/FML/Config.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index 3fb869aa..9c8d3837 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -1,7 +1,7 @@ #-*- perl -*- # Copyright (C) 2000-2001 Ken'ichi Fukamachi # -# $FML: Config.pm,v 1.37 2001/08/05 22:36:42 fukachan Exp $ +# $FML: Config.pm,v 1.38 2001/08/23 14:29:22 fukachan Exp $ # package FML::Config; @@ -636,4 +636,22 @@ sub CLEAR } +sub FIRSTKEY +{ + my ($self) = @_; + my @keys = keys %_fml_config_result; + $self->{ '_keys' } = \@keys; + + my $keys = $self->{ _keys }; + shift @$keys; +} + +sub NEXTKEY +{ + my ($self) = @_; + my $keys = $self->{ '_keys' }; + shift @$keys; +} + + 1; |