$op = chr($ops{smart} or die "Invalid match option");
my $arg = "['xxx']";
print eval " 'xxx' ~$op $arg" ? "Ok\n" : "Fail\n";
Ok Smartmatch is deprecated at (eval 1) line 1. https://PerlBanjo.com/2d22bf72b4
Обсуждают сегодня