一個可以更好地調試的 Perl 模塊

來自專欄 Linux

這個簡單優雅的模塊可以讓你包含調試或僅用於開發環境的代碼，而在產品環境中隱藏它們。

僅用於調試或開發調整時的 Perl 代碼塊有時會很有用。這很好，但是這樣的代碼塊可能會對性能產生很大的影響, 尤其是在運行時才決定是否執行它。

Curtis "Ovid" Poe 最近編寫了一個可以幫助解決這個問題的模塊：Keyword::DEVELOPMENT。該模塊利用 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

作者：Ruth Holloway 選題：lujun9972 譯者：geekpi 校對：wxy

本文由 LCTT 原創編譯，Linux中國 榮譽推出

推薦閱讀：