##
use Modern::Perl;
my $x = 2.3;
given($x) {
when($_) { say 'match' } # $_ ~~ $x
default { say 'no match' }
}
##
##
use Modern::Perl;
use warnings;
use strict 'refs';
BEGIN {
$^H{'feature_say'} = q(1);
$^H{'feature_state'} = q(1);
$^H{'feature_switch'} = q(1);
}
my $x = 2.3;
given ($x) {
when ($_) {
say 'match';
}
default {
say 'no match';
}
}