#Table's import method
sub import {
    my ( $class, @args ) = @_;
    my $href = $args[0];
    #sanity checking on href...
    my ( $dbase, $table ) = ( $args->{-dbase}, 
                              $args->{table} );

    #get_columns returns a reference to an array
    #containing the columns.
    my $columns = get_columns( $dbase, $table );
   
    #this is where I get stuck.
    package $dbase::$table;  
    @ISA = qw(Table);
    use Class::MethodMaker;
    make methods 
        get_set => $columns,
        new_hash_init => 'init';

    #broquaint suggested this, but he didn't like it
    #"this is just so very very wrong" --broquaint
    #the idea is to export the $dbase::$table package
    #definition to the caller

    *{"main::$dbase::$table::"} = *{"$dbase::table"};
}