#!/usr/bin/env perl

use v5.38;
use autodie;
use constant {
    SEP1 => "\n" . '=' x 40,
    SEP2 => '-' x 40,
    BENCH_MULT => 1_000,
};

use Benchmark 'cmpthese';
use File::Spec ();

my ($null_fh, $base_str);
BEGIN {
    open $null_fh, '>', File::Spec::->devnull();
    $base_str = <<~'EOT';
        AdataA
        BdataB
        CdataC
        EOT
}

my @bench_names = qw{net1 net2 hau1 ner1 ner2 kco1 kco2};
my (%bench_for, %benches_to_cmp);
say 'Test', SEP1;

for my $bench (@bench_names) {
    no strict 'refs';
    ($bench_for{$bench} = \&{$bench})->();
    use strict 'refs';
    say SEP2;

    $benches_to_cmp{$bench} = sub {
        $bench_for{$bench}->(BENCH_MULT, $null_fh)
    };
}

say 'Bench', SEP1;
cmpthese 0 => \%benches_to_cmp;
say SEP2;