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(), $_; }