Help for this page

Select Code to Download

Select or download this

sub FIRSTKEY {
    my ($self) = @_;
    scalar keys %$Self;
    return each %{ $self->{'value'} };
    }

Select or download this

sub FIRSTKEY {
    my ($self) = @_;
    keys %$Self;
    return $self->NEXTKEY;
    }