Select Code to Download

cmpthese( -1,
    {
...
    test_3 => sub {test3("2.01.000")},
    }
)

$ perl test_if.pl
            Rate test_1 test_2 test_3
test_1 1451608/s     --    -8%   -46%
test_2 1578202/s     9%     --   -41%
test_3 2667353/s    84%    69%     --

cmpthese(-1, {
    test_1 => q{ test1("3.01.000") },
    test_2 => q{ test2("3.01.000") },
    test_3 => q{ test3("3.01.000") },
});