package TableA

@ISA = ("MyTable");

sub new {   
    $self = $class->SUPER::new(@_);
   
    $self->buildFromSql($dbh,$sql)
}