use strict;
use warnings;
use Data::Table;

package SQLTable;

push @SQLTable::ISA, "Data::Table";


sub new {
    my ($class, $dbh, $sql, $vars) = @_;

    return $class->fromSql($dbh, $sql, $vars);
}


package main;

my $dbh = ...;
my $sql = ...;
my $vars = [...];
my $obj = SQLTable->new($dbh, $sql, $vars);