perl-SQL-Abstract

Este módulo foi inspirado no excelente DBIx::Abstract. No entanto, ao usar esse módulo, descobri que o que eu realmente queria fazer era gerar SQL, mas ainda manter controle total sobre meus statement handles e usar a interface DBI. Então, decidi criar um módulo abstrato de geração de SQL. Embora baseado nos conceitos usados pelo DBIx::Abstract, há várias diferenças importantes, especialmente no que diz respeito a cláusulas WHERE. Eu modifiquei os conceitos usados para tornar o SQL mais fácil de gerar a partir de estruturas de dados Perl e, na minha opinião, mais intuitivo. A ideia subjacente é que este módulo faça o que você quer dizer, com base nas estruturas de dados que você lhe fornece. A grande vantagem é que você não precisa modificar seu código toda vez que seus dados mudam, pois este módulo descobre isso. Para começar, um SQL INSERT é tão fácil quanto especificar um hash de pares 'key=value': my %data = ( name => 'Jimbo Bobson', phone => '123-456-7890', address => '42 Sister Lane', city => 'St. Louis', state => 'Louisiana', ); O SQL pode então ser gerado assim: my($stmt, @bind) = $sql->insert('people', \%data); O que lhe daria algo como isto: $stmt = "INSERT INTO people (address, city, name, phone, state) VALUES (?, ?, ?, ?, ?)"; @bind = ('42 Sister Lane', 'St. Louis', 'Jimbo Bobson', '123-456-7890', 'Louisiana'); Estes são então usados diretamente no seu código DBI: my $sth = $dbh->prepare($stmt); $sth->execute(@bind);