perl - 如何在 perl 中格式化 SQL 语句(代码风格)

Question

我想请 perlcritic并且在我的代码中具有易于阅读的 SQL 查询。目前我是这样做的:

if (defined $dbh) {
    $sth = $dbh->prepare(<<'SQL'
SELECT firstname, lastname, email, country
FROM Person
JOIN Country ON Person.countryID = Country.ID
WHERE age = ?
  AND sex = ?
LIMIT 100
SQL
    );
}

该语句根本不缩进，如果上下文缩进，则该语句会弹出。我觉得这很好，因为它可以很容易地发现语句，并且它们被分成几行以便于阅读。

但是，如果上下文没有缩进，这看起来真的很困惑。如果可能的话，我不喜欢在 stmt 中引入换行符或不必要的空格。另外，stmt 末尾的 SQL 和悬空的 ); 也不好。

请就这个问题提出一个好的风格指南，我可以采用。

Answer 1

我建议通过切换到 DBIx::Class 来完全删除程序中的所有 SQL 。如果这有点可怕，那么也许像 Data::Phrasebook::SQL 这样的中途之家.

一般来说，在 Perl 代码中使用原始 SQL 语句是一个非常糟糕的主意。