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

僅用於調試或開發調整時的 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中國 榮譽推出

本文轉載來自 Linux 中國: https://github.com/Linux-CN/archive