view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        my MySQL::TableInfo;

        my $CGI = new CGI:
        my $dbh = DBI->connect(....);
        my $table = new MySQL::TableInfo($dbh, "bio");

        print $CGI->header, $CGI->start_html("MySQL::TableInfo");

        print $CGI->start_form,
                $CGI->div("Do you wear beard?"),
                $CGI->popup_menu(-name=>'has_beard', 
                                                 -values=>[$table->set('beard')],
                                                 -default=>$table->default('beard')),
        $CGI->end_form;

        print $CGI->end_html;

As you see, modifying 'beard' column, which is an enumeration column, whould
reflect in your CGI too.        

TableInfo.pm  view on Meta::CPAN

    use MySQL::TableInfo;

    my $CGI = new CGI:
    my $dbh = DBI->connect(....);
    my $table = new MySQL::TableInfo($dbh, "bio");

    print $CGI->header,
        $CGI->start_html("MySQL::TableInfo"),
        $CGI->start_form,
        $CGI->div("Do you have beard?"),
        $CGI->popup_menu(-name=>'has_beard',
                         -values=>[$table->enum('has_beard')],
                         -default=>$table->default('has_beard')),
    $CGI->end_form,
    $CGI->end_html;


=head1 DESCRIPTION

MySQL::TableInfo is a handy class for getting easy access to MySQL tables' descriptions
which is available via