perl - 我如何在图书馆中使用 NYTProf

Question

我想知道 Devel::NYTProf可以用作另一个库中的库。我想做类似下面的事情

around 'somesub' => sub {
    my $orig = shift;
    my $self = shift;
    start-timing;
    $self->$orig(@_);
    end-timing;
    print '$time';
}

但是从它的文档我无法确定它是否可以像这样使用。可能吗？有人可以告诉我我会执行的 API 调用吗？

Answer 1

最简单、最可靠的做法是:

1. 在您的库中添加 DB::enable_profile 和 DB::disable_profile 调用(您可能想先检查是否定义了 sub，以避免在 NYTProf 未定义时损坏已加载)。
2. 在环境中使用 -d:NYTProf 和 NYTPROF=start=no 启动 perl。

所有这些都在 Devel::NYTProf docs 中得到了非常清楚的解释。 .

您可以尝试让您的库有条件地加载 NYTProf，但这里的交易是只有在加载 NYTProf 之后编译的内容才能获得任何跟踪点。这听起来可能完全没问题，因为您只想分析您的库，但不清楚如果您的库调用(或回调)任何其他代码会发生什么，而我没有测试它。使简单版本 make do 可能容易得多:)