kK-*_*orm 6 perl catalyst template-toolkit
所以我用来查看变量内容的方法是在我的模板工具包中使用Data :: Dumper:
[% USE Dumper %] [% Dumper.dump(varname) %]
但是我得到的结果有点乱 - 关于表关系,列类型和attrbitues等的所有信息.
我想知道是否有一种方法可以获得一个"干净"的变量内容 - 因为只有来自查询的当前结果+相关的结果集(即当我使用带有cakephp框架的php时,有一个'debug(varname)'命令提供了这样的结果,看起来像这样http://pastebin.com/Hut0LnAb).
数据::打印机救援!它的对象转储更易于人类阅读:
my $obj = SomeClass->new;
p($obj);
# produces:
\ SomeClass {
Parents Moose::Object
Linear @ISA SomeClass, Moose::Object
public methods (3) : bar, foo, meta
private methods (0)
internals: {
_something => 42,
}
}
Run Code Online (Sandbox Code Playgroud)
它与Template Toolkit兼容:
[% USE DataPrinter %]
html-formatted, colored dump of the same data structure:
[% DataPrinter.dump_html( myvar ) %]
Run Code Online (Sandbox Code Playgroud)
它"知道"如何处理DBIx :: Class:
use Data::Printer
filters => {
-external => [qw[DB]], # use DB filter
}, class => {
expand => 2, # traverse object 2-levels deep
linear_isa => 0, # hide not-so-relevant information
};
...
my $obj = $schema
->resultset('AddressState')
->search({}, { prefetch => [qw[country]] })
->single;
p $obj;
Run Code Online (Sandbox Code Playgroud)