diff options
| author | fukachan <fukachan> | 2001-09-13 12:20:39 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-09-13 12:20:39 +0000 |
| commit | d9ad65b9ddc142176ff3f834c981cdd295d2a653 (patch) | |
| tree | c0f53d3cfc94e7696833f7f45630e95cdd60d3d6 /fml | |
| parent | d2292826a2a75f7f503f522d7a11665008455834 (diff) | |
| download | fml8-d9ad65b9ddc142176ff3f834c981cdd295d2a653.tar.gz fml8-d9ad65b9ddc142176ff3f834c981cdd295d2a653.tar.bz2 fml8-d9ad65b9ddc142176ff3f834c981cdd295d2a653.zip | |
define FIRSTKEY and NEXTKEY for complete hash emulation
Diffstat (limited to 'fml')
| -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; |