Add a code to first and last line of all the subroutines in a perl package

arunvelusamy has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Add a code to first and last line of all the subroutines in a perl package by Prof Vince (Friar) on Oct 23, 2007 at 07:51 UTC
You might be interested by Hook::LexWrap.	[reply]
Re^2: Add a code to first and last line of all the subroutines in a perl package by jdporter (Paladin) on Oct 23, 2007 at 12:34 UTC
Yep! There's also Hook::PrePostCall and a few others.	[reply]
Re^3: Add a code to first and last line of all the subroutines in a perl package by bdimych (Monk) on Oct 23, 2007 at 12:52 UTC
The same but seems simpler and more completed Hook::WrapSub	[reply]
Re: Add a code to first and last line of all the subroutines in a perl package by merlyn (Sage) on Oct 23, 2007 at 05:49 UTC
Would a trace from running it in a debugger suffice? You should be able to use a debugging hook to do what you want without altering any code. -- Randal L. Schwartz, Perl hacker	[reply]
Re^2: Add a code to first and last line of all the subroutines in a perl package by arunvelusamy (Monk) on Oct 23, 2007 at 06:42 UTC
Thanks. Actually, a non perl tester is going to profile the code. I want them to do profiling in a painless way. The application is very big and Apache::SmallProf makes the application very slow. My idea is to add timestamp to begining and end of all subroutines for few packages.	[reply]
Re^3: Add a code to first and last line of all the subroutines in a perl package by salva (Canon) on Oct 23, 2007 at 08:18 UTC
Read the documentation for Devel::SmallProf (Apache::SmallProf is a fork of it). These profilers can be configured to only profile certain packages. For instance, create a configuration file named `.smallprof` in your working directory like: `%DB::packages = qw(Foo Bar);` [download] and only packages `Foo` and `Bar` will be profiled. But don't expect it to be much faster. Non-profiled code will still execute much slower (x2 - x5) than without the profiler. Probably you can also use `$^P` to explicitly activate/deactivate profiling (see perlvar and perldebguts). Finally, I would be very glad to collaborate with anyone trying to make Devel::FastProf work with apache (I'm its author!).	[reply] [d/l] [select]
Re: Add a code to first and last line of all the subroutines in a perl package by dragonchild (Archbishop) on Oct 23, 2007 at 12:50 UTC
This is called Aspect-Oriented Programming. Aspect does all of this, as does Moose. My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply]
Re: Add a code to first and last line of all the subroutines in a perl package by eff_i_g (Curate) on Oct 23, 2007 at 15:48 UTC
I asked this once and my favorite answer is here: Re: Tweaking 'return'..	[reply]
Re: Add a code to first and last line of all the subroutines in a perl package by clueless newbie (Curate) on Oct 23, 2007 at 12:22 UTC
Have a look at London's Devel::AutoProfiler. He does essentially what you want but you'll need to modify some code.	[reply]