The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

SYNOPSIS

    use CGI::FormBuilderX::More;
    use CGI::FormBuilderX::More::InputTie;

    my $form = CGI::FormBuilderX::More->new( ... );
    my %hash;
    tie %hash, $form; # %hash is now tied to the input of $form

    if (exists $hash{username}) {
        ...
    }

    $hash{password} = "12345"

METHODS

TIEHASH($form)

    my %hash;
    tie %hash, $form;

    # %hash is now tied to $form input
    

STORE($key, $value)

    $hash{$key} = $value

    sub {
        return $form->input_store($key, $value)
    }

FETCH($key)

    $value = $hash{$key};

    sub {
        return $form->input_fetch($key)
    }

EXISTS($key)

    exists $hash{$key};

    sub {
        return ! $form->missing($key)
    }

SCALAR

    sub {
        return scalar $form->{params}->param
    }

FIRSTKEY

N/A

NEXTKEY

N/A

DELETE

N/A

CLEAR

N/A