Re: Concrete SQL from SQL::Abstract?

Also SQL::DB has a query_as_string method that does what you want.

The mantra of every experienced web application developer is the same: thou shalt separate business logic from display. Ironically, almost all template engines allow violation of this separation principle, which is the very impetus for HTML template engine development.

-- Terence Parr, "Enforcing Strict Model View Separation in Template Engines"

Comment on Re: Concrete SQL from SQL::Abstract?

Replies are listed 'Best First'.
Re^2: Concrete SQL from SQL::Abstract? by benizi (Hermit) on May 17, 2010 at 19:04 UTC
Thanks for finding this. As with the other helpful suggestion, it's not really the intended use case (for SQL::DB, in this case). But the following hack works: `my $dbh; # connected elsewhere my $sqlgen = SQL::Abstract->new; my $sqldb = SQL::DB->new; $$sqldb{sqldb_dbh} = $dbh; # <- this is why I called it a hack print $sqldb->query_as_string($sqlgen->insert(atable=>{bar=>1,baz=>und +ef,foo=>"a string's error"})); __END__ #prints INSERT INTO foo ( bar, baz, foo) VALUES ( '1', NULL, 'a string\'s erro +r' )` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Concrete SQL from SQL::Abstract?
by benizi (Hermit) on May 17, 2010 at 19:04 UTC

Thanks for finding this. As with the other helpful suggestion, it's not really the intended use case (for SQL::DB, in this case). But the following hack works:

my $dbh; # connected elsewhere
my $sqlgen = SQL::Abstract->new;
my $sqldb = SQL::DB->new;
$$sqldb{sqldb_dbh} = $dbh; # <- this is why I called it a hack
print $sqldb->query_as_string($sqlgen->insert(atable=>{bar=>1,baz=>und
+ef,foo=>"a string's error"}));
__END__
#prints
INSERT INTO foo ( bar, baz, foo) VALUES ( '1', NULL, 'a string\'s erro
+r' )
[download]

[reply]
[d/l]