enum-xs-bench.pl

use strictures;
use Types::Standard -types;
use Benchmark qw(timethis);
 
{
	my $check = Enum[qw/ foo bar baz /];
	my $data  = "bar";
	my $sub   = $check->compiled_check;
 
	warn($check->inline_check(q/$str/));
 
	$sub->($data) or die;
 
	timethis 500_000, sub { $sub->($data) };
}

__END__
initial speed:  232558.14/s
with xs speed: 1020408.16/s