SKIP: {
skip 'perl 5.10 is required to test interaction with given/when' => 6
if "$]" < 5.010;
+ skip 'Not testing deprecated given/when on Perl 5.37.10 or later'
+ => 6 if "$]" >= 5.037010;
@res = eval <<'TESTCASE';
+ BEGIN {
+ if ("$]" >= 5.017_011) {
+ require warnings;
+ warnings->unimport('experimental::smartmatch');
+ }
+ }
use feature 'switch';
(24, do {
given (25) {
# end of the enclosing given block.
@res = ();
eval <<'TESTCASE';
+ BEGIN {
+ if ("$]" >= 5.017_011) {
+ require warnings;
+ warnings->unimport('experimental::smartmatch');
+ }
+ }
use feature 'switch';
@res = (28, do {
given (29) {
# But calling yield() in when() in for() sends us at the next iteration.
@res = ();
eval <<'TESTCASE';
+ BEGIN {
+ if ("$]" >= 5.017_011) {
+ require warnings;
+ warnings->unimport('experimental::smartmatch');
+ }
+ }
use feature 'switch';
@res = (31, do {
for (32, 33) {