view release on metacpan or  search on metacpan

t/95benchmark.t  view on Meta::CPAN

use v5.14;
use warnings;

use Test2::V0;

# This "test" never fails, but prints a benchmark comparison between this
# syntax and a simple if/elsif chain

use Time::HiRes qw( gettimeofday tv_interval );
sub measure(&)
{
   my ( $code ) = @_;
   my $start = [ gettimeofday ];
   $code->();
   return tv_interval $start;
}

use Syntax::Keyword::Match 0.03 qw( match :experimental(dispatch) );

sub digit_ifelsif