一个可以更好地调试的 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中国 荣誉推出
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/47299.html
linuxmysql相关文章
- pycharm下的调试功能[通俗易懂]
- API调试工具Postman介绍-星泽V社
- PhpStorm本地断点调试
- 模块驱动调试记录 ——platform_driver_register
- 移动端调试工具_plc调试助手
- javascript必须要知道的闭包,怎么调试闭包
- 振弦采集模块配置工具VMTool通用串口调试模块
- 「Go工具箱」推荐一个变量调试神器:go-spew
- python-异常处理和错误调试-异步IO程序的调试方法(二)
- Linux系统GDB调试实战(gdblinux调试)
- (转)ABAP 断点调试详解编程语言
- debugFunc Linux调试实战:从入门到精通(funclinux)
- JDBC程序的常见错误及调试方法