Lines Matching full:my
78 # for my $__loop__ (1..$ARGV[0]) {
127 setup => 'sub f { my ($a, $b, $c) = @_; 1 }',
132 setup => 'my $x; sub f { my ($a, $b) = @_; $a+$b }',
137 setup => 'my $x; sub f { my ($a, $b) = @_; \$a }',
142 setup => 'my @a; sub f { my ($a, $b, $c) = @_; $a+$b, $c, 1 }',
147 setup => 'my @a; sub f { my ($a, $b, $c) = @_; my @s = ("aa","bb","cc"); @s }',
152 setup => 'my @a; sub f { my ($a, $b, $c) = @_; 1..3 }',
157 setup => 'my $x; sub f { my ($i) = @_; $i > 0 ? $i + f($i-1) : 0 }',
163 setup => 'my $x; my @a = 1..4; sub f { @a }',
174 setup => 'sub f { goto &g } sub g { my ($a, $b, $c) = @_ }',
181 setup => 'my @a = (1)',
186 setup => 'my @a = (1)',
191 setup => 'my @a = ([1,2])',
196 setup => 'my ($i1,$i2) = (0,1); my @a = ([1,2])',
201 setup => 'my ($i1,$i2) = (0,1); my $r = [[1,2]]',
206 setup => 'my $r = [[[1,2]]]',
211 setup => 'my $r = [[[1,2]]]',
254 setup => 'my @a;',
259 setup => 'my @a = 1..10;',
264 setup => 'my (@a, $i);',
269 setup => 'my @a = 1..10; my $i',
284 setup => 'our @a; my $i;',
289 setup => 'our @a = 1..10; my $i',
295 setup => 'my ($i, $k1, $k2) = (0,"foo","bar");'
296 . 'my %h = (foo => [ { bar => 1 } ])',
308 setup => 'my %h = ("foo" => 1)',
313 setup => 'my %h = (foo => { bar => 1 })',
318 setup => 'my ($k1,$k2) = qw(foo bar); my %h = ($k1 => { $k2 => 1 })',
323 setup => 'my ($k1,$k2) = qw(foo bar); my $r = {$k1 => { $k2 => 1 }}',
328 setup => 'my $r = {foo => { bar => { baz => 1 }}}',
333 setup => 'my $r = {foo => { bar => { baz => 1 }}}',
371 setup => 'my ($k1,$k2) = qw(foo bar); my %h = ($k1 => { $k2 => 1 });',
377 setup => 'my %h;',
382 setup => 'my ($i, %h); sub f { if (%h) { $i++ }}',
387 setup => 'my %h = 1..10;',
396 setup => 'my %h; my $key = "A" x ' . $_ . '; $h{$key."x"} = 1;',
411 setup => 'my %h; my $key = "A" x ' . $_ . '; $h{$key} = 1;',
425 setup => 'my ($k1,$k2) = qw(foo bar); my %h = ($k1 => { $k2 => 1 });',
436 desc => 'my array assigned empty',
438 code => 'my @a = ()',
442 setup => 'my @a = 1..3;',
447 setup => 'my ($x, @a) = 1..4;',
451 desc => 'my hash assigned empty',
453 code => 'my %h = ()',
457 setup => 'my %h = 1..4;',
462 setup => 'my ($x, %h) = 1..5;',
466 desc => 'three my vars assigned empty',
468 code => 'my ($x,$y,$z) = ()',
472 setup => 'my ($x,$y,$z)',
477 setup => 'my ($x,$y,$z); my $r = []; ',
499 desc => 'my array assigned 3 consts',
501 code => 'my @a = (1,2,3)',
505 setup => 'my @a = 1..3;',
510 setup => 'my ($x, @a) = 1..4;',
514 desc => 'my hash assigned 4 consts',
516 code => 'my %h = qw(a 1 b 2)',
520 setup => 'my %h = qw(a 1 b 2);',
525 setup => 'my ($x, %h) = (1, qw(a 1 b 2));',
529 desc => 'three my vars assigned 3 consts',
531 code => 'my ($x,$y,$z) = (1,2,3)',
535 setup => 'my ($x,$y,$z)',
557 desc => 'my array assigned lexical array',
558 setup => 'my @init = 1..3;',
559 code => 'my @a = @init',
563 setup => 'my @init = 1..3; my @a = 1..3;',
568 setup => 'my @init = 1..3; my ($x, @a) = 1..4;',
572 desc => 'three my vars assigned lexical array',
573 setup => 'my @init = 1..3;',
574 code => 'my ($x,$y,$z) = @init',
578 setup => 'my @init = 1..3; my ($x,$y,$z)',
583 setup => 'my @init = 1..3;',
588 setup => 'my @init = 1..3; @a = @init',
593 setup => 'my @init = 1..3; ($x,$y,$z) = 1..3;',
600 desc => 'my array assigned package array',
602 code => 'my @a = @init',
606 setup => '@init = 1..3; my @a = 1..3;',
611 setup => '@init = 1..3; my ($x, @a) = 1..4;',
615 desc => 'three my vars assigned package array',
617 code => 'my ($x,$y,$z) = @init',
621 setup => '@init = 1..3; my ($x,$y,$z)',
643 desc => 'my array assigned @_',
645 code => 'my @a = @_',
649 setup => '@_ = 1..3; my @a = 1..3;',
654 setup => '@_ = 1..3; my ($x, @a) = 1..4;',
658 desc => 'three my vars assigned @_',
660 code => 'my ($x,$y,$z) = @_',
664 setup => '@_ = 1..3; my ($x,$y,$z)',
686 desc => 'my array assigned lexical hash',
687 setup => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
688 code => 'my @a = %h',
695 desc => 'my array assigned lexicals',
696 setup => 'my ($v1,$v2,$v3) = 1..3;',
697 code => 'my @a = ($v1,$v2,$v3)',
701 setup => 'my ($v1,$v2,$v3) = 1..3; my @a = 1..3;',
706 setup => 'my ($v1,$v2,$v3) = 1..3; my ($x, @a) = 1..4;',
710 desc => 'three my vars assigned lexicals',
711 setup => 'my ($v1,$v2,$v3) = 1..3;',
712 code => 'my ($x,$y,$z) = ($v1,$v2,$v3)',
716 setup => 'my ($v1,$v2,$v3) = 1..3; my ($x,$y,$z)',
721 setup => 'my ($v1,$v2,$v3) = 1..3;',
726 setup => 'my ($v1,$v2,$v3) = 1..3; @a = @_',
731 setup => 'my ($v1,$v2,$v3) = 1..3; ($x,$y,$z) = 1..3;',
739 desc => 'my array assigned 3 package vars',
741 code => 'my @a = ($v1,$v2,$v3)',
745 setup => '($v1,$v2,$v3) = 1..3; my @a = 1..3;',
750 setup => '($v1,$v2,$v3) = 1..3; my ($x, @a) = 1..4;',
754 desc => 'three my vars assigned 3 package vars',
756 code => 'my ($x,$y,$z) = ($v1,$v2,$v3)',
760 setup => '($v1,$v2,$v3) = 1..3; my ($x,$y,$z)',
784 setup => 'my ($x, @a) = 1..4;',
789 setup => 'my ($x,$y,$z) = 1..3;',
803 setup => 'my ($a,$b) = (1,2)',
813 setup => 'my @a = (1,2)',
821 setup => 'my ($a,$b,$c,$d,$e) = 1..5',
833 code => 'my ($a,$b,$c,$d,$e) = @_',
838 code => 'my ($a,$b,$c,$d,$e,@rest) = @_',
842 setup => 'my $x = 1;',
847 setup => 'my $x = 1;',
852 setup => 'my $x = 1;',
858 setup => 'my ($x, $y)',
864 setup => 'my ($r1, $r2, $r3, $r4);
871 setup => 'my ($r1, $r2);',
877 setup => 'my ($s,@a, @b); @b = (1,2)',
882 setup => 'my ($s, @a, @b); @b = (1,2)',
890 setup => 'my @a',
895 setup => 'my @a',
900 setup => 'my @a = qw(abc defg hijkl)',
905 setup => 'my @a = qw(abc defg hijkl)',
913 setup => 'my %h',
918 setup => 'my %h',
923 setup => 'my %h = qw(k1 abc k2 defg);',
928 setup => 'my %h = qw(k1 abc k2 defg);',
935 setup => 'my ($x,$y,$z) = 1..3;',
940 setup => 'my ($x,$y) = 1..2; $z = 3;',
945 setup => 'my ($x,$y,$z) = (1.1, 2.2, 3.3);',
950 setup => 'my ($x,$y); ($x,$y,$z) = (1.1, 2.2, 3.3);',
955 setup => 'my ($y,$z) = (2.2, 3.3);',
956 pre => 'my $x = 1', # after 1st iter gets upgraded to PVNV
961 setup => 'my ($y); ($y,$z) = (2.2, 3.3);',
962 pre => 'my $x = 1', # after 1st iter gets upgraded to PVNV
967 setup => 'my ($x,$y,$z) = ("1", "2", 1);',
973 setup => 'my ($x,$y,$z) = ("12345", "23456", 1);',
979 setup => 'my ($x,$y,$z) = 1..3;',
984 setup => 'my ($x,$y) = 1..2; $z = 3;',
989 setup => 'my ($x,$y,$z) = (1.1, 2.2, 3.3);',
994 setup => 'my ($x,$y); ($x,$y,$z) = (1.1, 2.2, 3.3);',
999 setup => 'my ($x,$y,$z) = (1, 2.2, 3.3);',
1004 setup => 'my ($x,$y); ($x,$y,$z) = (1, 2.2, 3.3);',
1010 setup => 'my ($x,$y,$z) = 1..3;',
1015 setup => 'my ($x,$y) = 1..2; $z = 3;',
1020 setup => 'my ($x,$y,$z) = (1.1, 2.2, 3.3);',
1025 setup => 'my ($x,$y); ($x,$y,$z) = (1.1, 2.2, 3.3);',
1030 setup => 'my ($x,$y,$z) = (1, 2.2, 3.3);',
1035 setup => 'my ($x,$y); ($x,$y,$z) = (1, 2.2, 3.3);',
1043 setup => 'my $x',
1048 setup => 'my ($x, $y) = (1,2); my $z;',
1053 setup => 'my ($x, %h)',
1058 setup => 'my ($x, $y) = (1,1); my $z;',
1063 setup => 'my ($x, $y)',
1068 setup => 'my ($x, $y) = (0, 0)',
1073 setup => 'my ($x, $y) = (1, 0)',
1078 setup => 'my ($x, $y) = ("foo", 0)',
1083 setup => 'my ($x, $y) = ([], 0)',
1088 setup => 'my $x = 1;',
1092 setup => 'my $x = 1;',
1097 setup => 'my $x = 1; my $y',
1102 setup => 'my $x = 1; my $y',
1110 setup => 'my $lex = "abcd"',
1114 setup => 'my $lex = "abcd"',
1118 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
1123 setup => 'my $lex',
1128 setup => 'my $lex1; my $lex2 = "wxyz"',
1133 setup => 'my $lex1; my $lex2 = "pqrs"; my $lex3 = "wxyz"',
1138 setup => 'my $lex1; my $lex2 = "pqrs"; my $lex3 = "wxyz"',
1143 setup => 'my $lex1; my ($lex2, $lex3, $lex4) = qw(pqrs wxyz 1234)',
1149 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
1150 code => 'my $lex = $lex1 . $lex2',
1153 setup => 'my $lex1 = "abcd"; my $lex2 = "pqrs"; my $lex3 = "wxyz"',
1154 code => 'my $lex = $lex1 . $lex2 . $lex3',
1157 setup => 'my $lex1 = "abcd"',
1158 code => 'my $lex = "const$lex1"',
1161 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
1162 code => 'my $lex = "foo=$lex1 bar=$lex2\n"',
1165 desc => 'my $lex = "foooooooooo=$lex1 baaaaaaaaar=$lex2\n" where lex1/2 are 400 chars',
1166 setup => 'my $lex1 = "abcd" x 100; my $lex2 = "wxyz" x 100',
1167 code => 'my $lex = "foooooooooo=$lex1 baaaaaaaaar=$lex2\n"',
1171 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
1175 setup => 'my $lex1; my $lex2 = "wxyz"',
1180 setup => 'my $lex1; my $lex2 = "wxyz"',
1185 setup => 'my $lex1',
1190 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "pqrs"; my $lex3 = "wxyz"',
1194 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "pqrs"; my $lex3 = "wxyz"; my $lex4 = "the quick brown fox"; my $lex5 = "to be, or not to be..."',
1198 setup => 'my $lex; my $lex1 = "abcd"',
1202 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
1207 setup => 'my $lex; my $lex1 = "abcd" x 100; my $lex2 = "wxyz" x 100',
1211 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "pqrs"; my $lex3 = "the quick brown fox"; my $lex4 = "to be, or not to be..."',
1221 setup => 'our $pkg; my $lex1 = "wxyz"',
1226 setup => 'our $pkg; my $lex1 = "pqrs"; my $lex2 = "wxyz"',
1231 setup => 'our $pkg; my $lex1 = "pqrs"; my $lex2 = "wxyz"',
1237 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "wxyz"',
1241 setup => 'our $pkg; my $lex2 = "wxyz"',
1246 setup => 'our $pkg; my $lex1 = "wxyz"',
1256 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "pqrs"; my $lex3 = "wxyz"',
1260 setup => 'our $pkg; my $lex1 = "abcd"',
1264 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "wxyz"',
1269 setup => 'our $pkg; my $lex1 = "abcd" x 100; my $lex2 = "wxyz" x 100',
1274 desc => 'my $s = $a.$b.$c where all args are utf8',
1275 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "\x{101}fghij"; my $c = "\x{102}klmn"',
1279 desc => 'my $s = "foo=$a bar=$b baz=$c" where $b,$c are utf8',
1280 setup => 'my $s; my $a = "abcde"; my $b = "\x{100}fghij"; my $c = "\x{101}klmn"',
1284 desc => 'my $s = "foo=$a bar=$b baz=$c" where $a,$c are utf8',
1285 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x{101}klmn"',
1289 desc => 'my $s = "foo=$a bar=$b baz=$c" where $a is utf8, $c has 0x80',
1290 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x80\x81klmn"',
1296 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "\x{101}fghij"; my $c = "\x{102}klmn"',
1302 setup => 'my $s; my $a = "abcde"; my $b = "\x{100}fghij"; my $c = "\x{101}klmn"',
1308 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x{101}klmn"',
1314 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x80\x81klmn"',
1321 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "\x{101}fghij"; my $c = "\x{102}klmn"',
1327 setup => 'my $s; my $a = "abcde"; my $b = "\x{100}fghij"; my $c = "\x{101}klmn"',
1333 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x{101}klmn"',
1339 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x80\x81klmn"',
1345 setup => 'my $lex1; my ($lex2, $lex3, $lex4) = qw(abcd pqrs wxyz)',
1368 setup => 'my $lex; "abcd" =~ /(.*)/;',
1373 setup => 'my $lex; "abcd" =~ /(.*)/;',
1378 setup => 'my $lex; "abcd" =~ /(.*)/;',
1383 setup => 'my $lex; "abcd" =~ /(.*)/;',
1390 code => 'my $lex = $1 . $1',
1394 code => 'my $lex = $1 . $1 . $1',
1398 code => 'my $lex = "const$1"',
1402 code => 'my $lex = "foo=$1 bar=$1\n"',
1405 desc => 'my $lex = "foooooooooo=$1 baaaaaaaaar=$1\n" where $1 is 400 chars',
1406 setup => 'my $s = "abcd" x 100; $s =~ /(.*)/;',
1407 code => 'my $lex = "foooooooooo=$1 baaaaaaaaar=$1\n"',
1411 setup => 'my $lex; "abcd" =~ /(.*)/;',
1415 setup => 'my $lex1; "abcd" =~ /(.*)/;',
1420 setup => 'my $lex1; "abcd" =~ /(.*)/;',
1425 setup => 'my $lex; "abcd" =~ /(.*)/;',
1429 setup => 'my $lex; "abcd" =~ /(.*)/;',
1433 setup => 'my $lex; "abcd" =~ /(.*)/;',
1437 setup => 'my $lex; "abcd" =~ /(.*)/;',
1442 setup => 'my $s = "abcd" x 100; $s =~ /(.*)/;',
1446 setup => 'my $lex; "abcd" =~ /(.*)/;',
1495 setup => 'our $pkg; my $s = "abcd" x 100; $s =~ /(.*)/;',
1500 desc => 'my $s = $1.$1.$1 where $1 utf8',
1501 setup => 'my $s; "ab\x{100}cde" =~ /(.*)/;',
1505 desc => 'my $s = "foo=$a bar=$1 baz=$1" where $1 is utf8',
1506 setup => 'my $s; my $a = "abcde"; "ab\x{100}cde" =~ /(.*)/;',
1547 setup => 'my $x',
1551 setup => 'my $x',
1556 code => 'my $x = undef',
1560 code => 'undef my $x',
1568 setup => 'my $x',
1573 code => 'my $x = []'
1580 setup => 'my $x',
1585 code => 'my $x = {}'
1590 code => 'my $x = "abc"',
1594 setup => 'my $x',
1599 setup => 'my $x',
1604 setup => 'my $x = "abc"',
1609 setup => 'my $x = 1;',
1614 setup => 'my $r1 = []; my $r = $r1;',
1619 setup => 'my $r1 = []; my $r',
1625 setup => 'my @x',
1630 setup => 'my @x',
1635 setup => 'my @x = ([1,2])',
1640 setup => 'my $x',
1646 setup => 'my @a;',
1651 setup => 'my @a =(1);',
1656 setup => 'my $g; my @a;',
1661 setup => 'my $g; my @a =(1);',
1669 setup => 'my $x = "aaaab"',
1674 setup => 'my $x = "aaaab"',
1679 setup => 'my $r; my $x = "aaaab"',
1684 setup => 'my $r; my $x = "aaaab"',
1693 setup => 'my $x = "aaaab"',
1698 setup => 'my $x = "a" x 1000 . "b"',
1703 setup => 'my $x = "aaaabc"',
1708 setup => 'my $x = "a" x 1000 . "bc"',
1713 setup => 'my $x = "a" x 1000',
1718 setup => 'my $x = "b" x 1000',
1723 setup => 'my $x = "a" x 1000',
1729 setup => 'my $x = "ab" x 500',
1735 setup => 'my $x = "aaaaaaaaxx" x 100',
1741 setup => 'my $x = "aaaaaaaayy" x 100',
1747 setup => 'my $x = "aaaaaaaaxy" x 100',
1753 setup => 'my $x = "aaaaaaaaxxbbbbbbbbyy" x 50',
1758 setup => 'my $x = "aaaabcd"',
1763 setup => 'my $x = "a" x 1000 . "bcd"',
1768 setup => 'my $x = "ab" x 500',
1773 setup => 'my $x = "bc" x 500',
1778 setup => 'my $x = "abc". chr(0x100); chop $x',
1787 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
1797 setup => 'my %h = ()',
1802 setup => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
1807 setup => 'my %h = ()',
1812 setup => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
1817 setup => 'my $k; my %h = ()',
1822 setup => 'my $k; my %h = qw(aardvark 1 banana 2 cucumber 3)',
1827 setup => 'my %h = ()',
1832 setup => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
1858 setup => 'my $k; our %h = ()',
1863 setup => 'my $k; our %h = qw(aardvark 1 banana 2 cucumber 3)',
1880 setup => 'my $s = "";',
1885 setup => 'my $s = "abcdefghijk";',
1890 setup => 'my $p; my $s = "abcdefghijk";',
1895 setup => 'my $s = "\x{100}"; chop $s;',
1900 setup => 'my $s = "abcdefghij\x{100}";',
1905 setup => 'my $p; my $s = "abcdefghij\x{100}";',
1911 setup => 'my $s = "abc"; pos($s) = 0',
1916 setup => 'my $s = "abcdefghijk"; pos($s) = 10',
1921 setup => 'my $p; my $s = "abcdefghijk"; pos($s) = 10',
1927 setup => 'my $r = "boo"',
1932 setup => 'my $r = []',
1937 setup => 'my $r = bless []',
1943 setup => 'my $x; my $r = "boo"',
1948 setup => 'my $x; my $r = []',
1953 setup => 'my $x; my $r = bless []',
1961 setup => 'my (@a, @b); @a = reverse 1..10;',
1966 setup => 'my (@a, @b); @a = reverse 1..10;',
1971 setup => 'sub f { $a + 1 <=> $b + 1 } my (@a, @b); @a = reverse 1..10;',
1976 setup => 'my (@a, @b); @a = reverse "a".."j";',
1981 setup => 'my (@a, @b); @a = reverse "a".."j";',
1986 setup => 'sub f { ($a . "") cmp ($b . "") } my (@a, @b); @a = reverse "a".."j";',
1992 setup => 'my @a = reverse 1..10;',
1997 setup => 'my @a = reverse 1..10;',
2002 setup => 'sub f { $a + 1 <=> $b + 1 } my @a = reverse 1..10;',
2007 setup => 'my @a = reverse "a".."j";',
2012 setup => 'my @a = reverse "a".."j";',
2017 setup => 'sub f { ($a . "") cmp ($b . "") } my @a = reverse "a".."j";',
2024 setup => 'my $s = "abc:def";',
2025 code => 'my ($x, $y) = split /:/, $s, 2;',
2030 setup => 'my @a; my $s = "abc:def";',
2035 setup => 'my $s = "abc:def";',
2036 code => 'my @a = split /:/, $s, 2;',
2040 setup => 'my $s = "abc:def"; my $r = []',
2045 setup => 'my @a; my $s = "abc:def";',
2054 setup => 'my $s; my $a1 = 1234;',
2059 setup => 'my $s; my $a1 = 1234;',
2064 setup => 'my $s; my $a1 = 1234;',
2071 setup => 'my $s; my $a1 = 123.456;',
2077 setup => 'my $s; my $a1 = 123.456;',
2082 setup => 'my $s; my $a1 = 123.456;',
2089 setup => 'my $s; my $a1 = 123.456;',
2095 setup => 'my $s; my $a1 = 123.456;',
2100 setup => 'my $s; my $a1 = 123.456;',
2106 setup => 'my $s; my $a1 = "abcd";',
2111 setup => 'my $s; my $a1 = "abcd";',
2116 setup => 'my $s;my $a = "ab\x{100}cd"; my $b = "efg"; my $c = "h\x{101}ij"',
2123 setup => 'my $lex1 = "abcd"',
2127 setup => 'our $pkg; my $lex1 = "abcd"',
2131 setup => 'our $pkg; my $lex1 = "abcd"',
2136 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2140 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2145 setup => 'our $pkg; my $lex1 = "abcd"',
2149 setup => 'our $pkg; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2154 setup => 'my $lex; my $lex1 = "abcd"',
2158 setup => 'my $lex; my $lex1 = "abcd"',
2163 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
2167 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2171 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2176 setup => 'my $lex; my $lex1 = "abcd"',
2180 setup => 'my $lex; my $lex1 = "abcd"; my $lex2 = "wxyz"',
2185 setup => 'my $lex1 = "abcd"',
2186 code => 'my $lex = sprintf "%s", $lex1',
2189 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
2190 code => 'my $lex = sprintf "%s%s", $lex1, $lex2',
2193 setup => 'my $lex1 = "abcd"',
2194 code => 'my $lex = sprintf "foo=%s", $lex1',
2197 setup => 'my $lex1 = "abcd"; my $lex2 = "wxyz"',
2198 code => 'my $lex = sprintf "foo=%s bar=%s\n", $lex1, $lex2',
2203 setup => 'my $s; my $a = "ab\x{100}cde"; my $b = "fghij"; my $c = "\x{101}klmn"',
2219 setup => 'my $k; my %h = ()',
2224 setup => 'my $k; my %h = qw(aardvark 1 banana 2 cucumber 3)',
2229 setup => 'my %h = ()',
2234 setup => 'my %h = qw(aardvark 1 banana 2 cucumber 3)',
2248 setup => 'my $x; my $y = 2;',
2253 desc => 'empty for loop with my var and 1 integer range',
2255 code => 'for my $x (1..1) {}',
2259 setup => 'my $x;',
2273 desc => 'empty for loop with my var and 4 integer range',
2275 code => 'for my $x (1..4) {}',
2279 setup => 'my $x;',
2294 desc => 'empty for loop with my var and 1 integer list',
2296 code => 'for my $x (1) {}',
2300 setup => 'my $x;',
2314 desc => 'empty for loop with my var and 4 integer list',
2316 code => 'for my $x (1,2,3,4) {}',
2320 setup => 'my $x;',
2335 desc => 'empty for loop with my var and 1 integer array',
2336 setup => 'my @a = (1);',
2337 code => 'for my $x (@a) {}',
2341 setup => 'my $x; my @a = (1);',
2346 setup => '$x = 1; my @a = (1);',
2351 setup => 'my @a = (@a);',
2355 desc => 'empty for loop with my var and 4 integer array',
2356 setup => 'my @a = (1..4);',
2357 code => 'for my $x (@a) {}',
2361 setup => 'my $x; my @a = (1..4);',
2366 setup => '$x = 1; my @a = (1..4);',
2371 setup => 'my @a = (1..4);',
2376 desc => 'for loop containing only next with my var and integer 4 array',
2377 setup => 'my @a = (1..4);',
2378 code => 'for my $x (@a) {next}',
2383 setup => 'my @a',
2389 setup => 'my @a',
2395 setup => 'my @a',
2401 setup => 'my @a',
2407 setup => 'my $i = 0;',
2412 setup => 'my $i = 0;',