perl 5.14 smart matching

Суббота, 19 марта, 8:9
use Dancer ':syntax';
use v5.14;
...

my @options = qw ( func_overload allow_url_fopen );
my $p = params->{'...'};

return redirect '...' unless $p and $p ~~ ['func_overload', 'allow_url_fopen']; # работает
return redirect '...' unless $p and $p ~~ qw ( func_overload allow_url_fopen ); # не работает
return redirect '...' unless $p and $p ~~ @options; # работает


Прелесть какая!