use v5.18;
use match::simple -all;
use Benchmark qw( cmpthese );

$::A = 3;
$::B = [1 .. 5];

cmpthese(-1, {
	'match' => q[ match($::A, $::B) ],
	'M'     => q[ $::A |M| $::B ],
	'~~'    => q[ no warnings 'experimental::smartmatch'; $::A ~~ $::B ],
});

__END__
           Rate      M  match     ~~
M       11487/s     --   -69%   -99%
match   36540/s   218%     --   -97%
~~    1420284/s 12265%  3787%     --