+
+ my @testcases = map {
+ my ($var, $init, $code, $exp, $use) = @$_;
+ [ $var, $init, $code, $exp, $use, $opts, 0 ],
+ [ $var, "use strict; $init", $code, $exp, $use, $opts, 1 ],
+ [ $var, "no strict; $init", $code, $exp, $use, $opts, 1 ],
+ } @base;
+