benchmarking code conditionally

[punkish]

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;
     }
}

[anonymized user 468275]

use BenchWrapper;

my $BENCHMARKIT = 1;

...

my $bwo = BenchWrapper -> new( $BENCHMARKIT );

...

sub foo {
    my $t0 = $bwo -> mark;
    ...
    my $t1 = $bwo -> mark;
    ...
}

...

package BenchWrapper;

use Benchmark;

sub new {
    bless { BENCHMARKIT => shift() };
}

sub mark {
    $_[0] -> { BENCHMARKIT }
      and return Benchmark -> new;
}

1;

[Anonymous Monk]

See Devel::Timer