Select Code to Download

create table my_database..foo
(    bar int ,
     baz varchar(10)
)

use Table ( { -dbase => "my_database", -table => "foo" } );

my $f = my_database::foo->new( { bar => 1, baz => "neat" } );

#Table's import method
...
    *{"main::$dbase::$table::"} = *{"$dbase::table"};
}

use Table ( { -dbase => "mydb", -table => "foo" } );
use Table ( { -dbae  => "someotherdb", -table => "bar" } );
#results in the exporting of 2 class definitions:
#mydb::foo and someotherdb::bar

package mydb::foo;
@ISA = qw(Table);
...
package someotherdb::bar;
@ISA = qw(Table);