編譯自： https://opensource.com/article/18/4/perl-module-debugging-code譯者： geekpi
這個簡單優雅的模塊可以讓你包含調試或僅用於開發環境的代碼，而在產品環境中隱藏它們。
僅用於調試或開發調整時的 Perl 代碼塊有時會很有用。這很好，但是這樣的代碼塊可能會對性能產生很大的影響, 尤其是在運行時才決定是否執行它。
Curtis "Ovid" Poe[1] 最近編寫了一個可以幫助解決這個問題的模塊：Keyword::DEVELOPMENT[2]。該模塊利用 Keyword::Simple 和 Perl 5.012 中引入的可插入關鍵字架構來創建了新的關鍵字：DEVELOPMENT。它使用 PERL_KEYWORD_DEVELOPMENT 環境變量的值來確定是否要執行一段代碼。
使用它不能更容易了：
use Keyword::DEVELOPMENT;sub doing_my_big_loop {
my $self = shift;
DEVELOPMENT {
# insert expensive debugging code here!
}
}
在編譯時，DEVELOPMENT 塊內的代碼已經被優化掉了，根本就不存在。
你看到好處了麼？在沙盒中將 PERL_KEYWORD_DEVELOPMENT 環境變量設置為 true，在生產環境設為 false，並且可以將有價值的調試工具提交到你的代碼庫中，在你需要的時候隨時可用。
在缺乏高級配置管理的系統中，你也可以使用此模塊來處理生產和開發或測試環境之間的設置差異：
sub connect_to_my_database {my $dsn = "dbi:mysql:productiondb";
my $user = "db_user";
my $pass = "db_pass";
DEVELOPMENT {
# Override some of that config information
$dsn = "dbi:mysql:developmentdb";
}
my $db_handle = DBI->connect($dsn, $user, $pass);
}
稍後對此代碼片段的增強使你能在其他地方，比如 YAML 或 INI 中讀取配置信息，但我希望您能在此看到該工具。
我查看了關鍵字 Keyword::DEVELOPMENT 的源碼，花了大約半小時研究，“天哪，我為什麼沒有想到這個？”安裝 Keyword::Simple 後，Curtis 給我們的模塊就非常簡單了。這是我長期以來在自己的編碼實踐中所需要的一個優雅解決方案。
via: https://opensource.com/article/18/4/perl-module-debugging-code
閱讀更多 Linux中國 的文章
