How can I use NYTProf in the library

Question

I am wondering if Devel :: NYTProf can be used as a library in another library. I would like to do something like the following

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

but from it the documentation I can’t determine if it can be used like that. Is it possible? can someone tell me the API calls that I would make?

Answer 1

The simplest and most reliable thing:

• Add DB::enable_profileand DB::disable_profilecall your library (you can check if the subsites are determined to avoid breakage when NYTProf not loaded).
• perl -d: NYTProf NYTPROF=start=no .

Devel:: NYTProf docs.

, NYTProf, , , NYTProf, . , , , , ( ) , . , make:)

Answer 2

, . Aspect::Library::Profiler Aspect::Library::Timer