Select Code to Download

use 5.010;

use feature 'switch';

no if $] >= 5.018, warnings => "experimental::feature_name";

no if $] >= 5.018, warnings => "experimental::switch";

Unknown warnings category 'experimental::switch' at ...
BEGIN failed--compilation aborted at ...

no if $] >= 5.018, warnings => "experimental::smartmatch";

given is experimental at ...
when is experimental at ...
when is experimental at ...
when is experimental at ...

#!/usr/bin/env perl -l

...
    state $word_for = {qw{1 One 2 Two 3 Three}};
    return $word_for->{+shift} || 'Other';
}

*** test1() ***
0 is Other
...
2 is Two
3 is Three
4 is Other