smart match 演算子は perl5.10 でつかえるだろうが

id:dankogai/kogaidan も、id:lestrrat も、いったいなにをとちくるっているんだ。Perl5.10 がリリースされた今、smart match 演算子を使わずして、どうする。詳しくは、perlsyn を熟読せよ。

use strict;
use warnings;
use Test::More;

sub orig  { ( $_ eq 'XXX' || $_ eq 'YYY' ) ? 1 : 0 }
sub smart { ( $_ ~~ [ 'XXX', 'YYY' ])    ? 1 : 0 }

my @cases = qw/XXX YYY ZZZ/;
plan tests => 1*@cases;
for (@cases) {
    is smart(), orig(), $_;
}