punkish has asked for the wisdom of the Perl Monks concerning the following question:
I tend to do a lot of
sub foo { my $t0 = Benchmark->new(); .. code .. my $t1 = Benchmark->new(); say "foo() took" . timestr(timediff($t1, $t0)); } sub bar { my $t0 = Benchmark->new(); .. code .. my $t1 = Benchmark->new(); say "bar() took" . timestr(timediff($t1, $t0)); }
What I really want is all that Benchmark-ing to be switchable. So, if I have a config switch $BENCHMARKIT = 1;, all that Benchmark nonsense should run, including printing out the messages. However, if I turn it off with $BENCHMARKIT = 0;, then it should all be skipped.
How do I go about accomplishing the above?
New note: I have now deployed Log::Dispatch to do my logging to file or screen or both, replacing my code below. Still seeking wisdom for the benchmarking query above.
Additional note: Fwiw, I do something similar with my homemade debugging. Instead of
sub foo { say "Starting foo() with yadda"; .. code .. say "Now doing stuff"; .. code .. say "Now munging"; say "Done with foo()"; }
I do something like so
my $DEBUG = 1; sub foo { logit "Starting foo() with yadda"; .. code .. logit "Now doing stuff"; .. code .. logit "Now munging"; logit "Done with foo()"; } sub logit { my ($msg) = @_; if ($DEBUG) { say $msg; } }
--
when small people start casting long shadows, it is time to go to bed
when small people start casting long shadows, it is time to go to bed
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: benchmarking code conditionally
by anonymized user 468275 (Curate) on Feb 24, 2011 at 14:36 UTC | |
Re: benchmarking code conditionally
by Anonymous Monk on Feb 24, 2011 at 14:54 UTC |
Back to
Seekers of Perl Wisdom