Lines Matching refs:code
3 # This file specifies an array-of-hashes that define snippets of code that
12 # but just to ensure that the code doesn't have errors.
37 # loop:: structural code like for, while(), etc
45 # to the same value as the 'code' field
47 # setup is an optional string containing setup code that is run once
49 # code is a string containing the code to run in a loop
51 # pre is an optional string containing setup code which is executed
52 # just before 'code' for every iteration, but whose execution
55 # post like pre, but executed just after 'code'.
59 # eval "package $name; $setup; for (1..1000000) { $pre; $code; $post }"
70 # code => 'CODE',
99 # code => '$x .= "foo"',
107 # code => '$x .= "foo"',
109 # Finally, the optional 'compile' key causes the code body to be wrapped
118 code => 'f()',
123 code => '&f',
128 code => 'f(1,2,3)',
133 code => '$x = f(1,2)',
138 code => '$x = f(1,2)',
143 code => '@a = f(1,2,3)',
148 code => '@a = f(1,2,3)',
153 code => '@a = f(1,2,3)',
158 code => '$x = f(1)',
164 code => '$x = f()',
170 code => 'f()',
175 code => 'f(1,2,3)',
182 code => '$a[0]',
187 code => '$a[-1]',
192 code => '$a[0][1]',
197 code => '$a[$i1][$i2]',
202 code => '$r->[$i1][$i2]',
207 code => '$r->[0][0][0]',
212 code => '($r||0)->[0][0][0]',
219 code => '$a[0]',
224 code => '$a[-1]',
229 code => '$a[0][1]',
234 code => '$a[$i1][$i2]',
239 code => '$r->[$i1][$i2]',
244 code => '$r->[0][0][0]',
249 code => '($r||0)->[0][0][0]',
255 code => '!@a',
260 code => '!@a',
265 code => '$i = @a',
270 code => '$i = @a',
275 code => '!@a',
280 code => '!@a',
285 code => '$i = @a',
290 code => '$i = @a',
297 code => '$h{$k1}[$i]{$k2}',
303 code => '$h{$k1}[$i]{$k2}',
309 code => '$h{foo}',
314 code => '$h{foo}{bar}',
319 code => '$h{$k1}{$k2}',
324 code => '$r->{$k1}{$k2}',
329 code => '$r->{foo}{bar}{baz}',
334 code => '($r||0)->{foo}{bar}{baz}',
340 code => '$h{foo}',
345 code => '$h{foo}{bar}',
350 code => '$h{$k1}{$k2}',
355 code => '$r->{$k1}{$k2}',
360 code => '$r->{foo}{bar}{baz}',
365 code => '($r||0)->{foo}{bar}{baz}',
372 code => 'exists $h{$k1}{$k2}',
378 code => '!%h',
383 code => 'f()',
388 code => '!%h',
397 code => 'exists $h{$key}',
412 code => 'exists $h{$key}',
426 code => 'delete $h{$k1}{$k2}',
438 code => 'my @a = ()',
443 code => '@a = ()',
448 code => '($x, @a) = ()',
453 code => 'my %h = ()',
458 code => '%h = ()',
463 code => '($x, %h) = ()',
468 code => 'my ($x,$y,$z) = ()',
473 code => '($x,$y,$z) = ()',
478 code => '($x,$y,$z) = ($r,$r,$r); ($x,$y,$z) = ()',
483 code => '@a = ()',
488 code => '@a = ()',
493 code => '($x,$y,$z) = ()',
501 code => 'my @a = (1,2,3)',
506 code => '@a = (1,2,3)',
511 code => '($x, @a) = (1,2,3)',
516 code => 'my %h = qw(a 1 b 2)',
521 code => '%h = qw(c 3 d 4)',
526 code => '($x, %h) = (10, qw(c 3 d 4))',
531 code => 'my ($x,$y,$z) = (1,2,3)',
536 code => '($x,$y,$z) = (1,2,3)',
541 code => '@a = (1,2,3)',
546 code => '@a = (1,2,3)',
551 code => '($x,$y,$z) = (1,2,3)',
559 code => 'my @a = @init',
564 code => '@a = @init',
569 code => '($x, @a) = @init',
574 code => 'my ($x,$y,$z) = @init',
579 code => '($x,$y,$z) = @init',
584 code => '@a = @init',
589 code => '@a = @init',
594 code => '($x,$y,$z) = @init',
602 code => 'my @a = @init',
607 code => '@a = @init',
612 code => '($x, @a) = @init',
617 code => 'my ($x,$y,$z) = @init',
622 code => '($x,$y,$z) = @init',
627 code => '@a = @init',
632 code => '@a = @init',
637 code => '($x,$y,$z) = @init',
645 code => 'my @a = @_',
650 code => '@a = @_',
655 code => '($x, @a) = @_',
660 code => 'my ($x,$y,$z) = @_',
665 code => '($x,$y,$z) = @_',
670 code => '@a = @_',
675 code => '@a = @_',
680 code => '($x,$y,$z) = @_',
688 code => 'my @a = %h',
697 code => 'my @a = ($v1,$v2,$v3)',
702 code => '@a = ($v1,$v2,$v3)',
707 code => '($x, @a) = ($v1,$v2,$v3)',
712 code => 'my ($x,$y,$z) = ($v1,$v2,$v3)',
717 code => '($x,$y,$z) = ($v1,$v2,$v3)',
722 code => '@a = ($v1,$v2,$v3)',
727 code => '@a = ($v1,$v2,$v3)',
732 code => '($x,$y,$z) = ($v1,$v2,$v3)',
741 code => 'my @a = ($v1,$v2,$v3)',
746 code => '@a = ($v1,$v2,$v3)',
751 code => '($x, @a) = ($v1,$v2,$v3)',
756 code => 'my ($x,$y,$z) = ($v1,$v2,$v3)',
761 code => '($x,$y,$z) = ($v1,$v2,$v3)',
766 code => '@a = ($v1,$v2,$v3)',
771 code => '@a = ($v1,$v2,$v3)',
776 code => '($x,$y,$z) = ($v1,$v2,$v3)',
785 code => '($x, @a) = (1,2,$x)',
790 code => '($x,$y,$z) = (1,2,$x)',
795 code => '($x,$y,$z) = (1,2,$x)',
804 code => '($a,$b) = ($b,$a)',
809 code => '($a,$b) = ($b,$a)',
814 code => '($a[0],$a[1]) = ($a[1],$a[0])',
822 code => '($a,$b,$c,$d,$e) = ($a,$a,$c,$d,$e)',
828 code => '($a,$b,$c,$d,$e) = ($a,$a,$c,$d,$e)',
833 code => 'my ($a,$b,$c,$d,$e) = @_',
838 code => 'my ($a,$b,$c,$d,$e,@rest) = @_',
843 code => '(undef,$x) = ($x,$x)',
848 code => '($x,$x) = ($x)',
853 code => '($x,$x) = (undef, $x)',
859 code => '($x, $y) = (1, 2)',
866 code => '($r1, $r2) = ($r3, $r4)',
872 code => '($r1, $r2) = ([], []);',
878 code => '!(@a = @b);',
883 code => '$s = (@a = @b);',
891 code => '@a = (); @a = qw(abc defg hijkl);',
896 code => '@a = (); @a = map $_, qw(abc defg hijkl);',
901 code => '@a = qw(abc defg hijkl);',
906 code => '@a = map $_, qw(abc defg hijkl);',
914 code => '%h = (); %h = qw(k1 abc k2 defg);',
919 code => '%h = (); %h = map $_, qw(k1 abc k2 defg);',
924 code => '%h = qw(k1 abc k2 defg);',
929 code => '%h = map $_, qw(k1 abc k2 defg);',
936 code => '$z = $x + $y',
941 code => '$z = $x + $y',
946 code => '$z = $x + $y',
951 code => '$z = $x + $y',
957 code => '$z = $x + $y',
963 code => '$z = $x + $y',
968 code => '$z = $x + $y; $x = "1"; ',
974 code => '$z = $x + $y; $x = "12345"; ',
980 code => '$z = $x - $y',
985 code => '$z = $x - $y',
990 code => '$z = $x - $y',
995 code => '$z = $x - $y',
1000 code => '$z = $x - $y',
1005 code => '$z = $x - $y',
1011 code => '$z = $x * $y',
1016 code => '$z = $x * $y',
1021 code => '$z = $x * $y',
1026 code => '$z = $x * $y',
1031 code => '$z = $x * $y',
1036 code => '$z = $x * $y',
1044 code => '$x = !undef',
1049 code => '$z = !($x == $y)',
1054 code => '$x = !%h',
1059 code => '$z = !($x == $y)',
1064 code => '$x = !$y',
1069 code => '$y = !$x',
1074 code => '$y = !$x',
1079 code => '$y = !$x',
1084 code => '$y = !$x',
1089 code => '++$x',
1093 code => '--$x',
1098 code => '$y = $x++', # scalar context so not optimised to ++$x
1103 code => '$y = $x--', # scalar context so not optimised to --$x
1111 code => '"foo" . $lex',
1115 code => '$lex . "foo"',
1119 code => '$lex1 . $lex2',
1125 code => '$lex .= "foo"',
1130 code => '$lex1 .= $lex2',
1135 code => '$lex1 .= $lex2 . $lex3',
1140 code => '$lex1 .= "-foo-$lex2-foo-$lex3-foo"',
1145 code => '$lex1 .= $lex2 . $lex3 . $lex4',
1150 code => 'my $lex = $lex1 . $lex2',
1154 code => 'my $lex = $lex1 . $lex2 . $lex3',
1158 code => 'my $lex = "const$lex1"',
1162 code => 'my $lex = "foo=$lex1 bar=$lex2\n"',
1167 code => 'my $lex = "foooooooooo=$lex1 baaaaaaaaar=$lex2\n"',
1172 code => '$lex = $lex1 . $lex2',
1177 code => '$lex1 = $lex1 . $lex2',
1182 code => '$lex1 = $lex2 . $lex1',
1187 code => '$lex1 = $lex1 . $lex1',
1191 code => '$lex = $lex1 . $lex2 . $lex3',
1195 code => '$lex = $lex1 . $lex2 . $lex3 . $lex4 . $lex5',
1199 code => '$lex = "const$lex1"',
1203 code => '$lex = "foo=$lex1 bar=$lex2\n"',
1208 code => '$lex = "foooooooooo=$lex1 baaaaaaaaar=$lex2\n"',
1212 code => '$lex = "foo1=$lex1 foo2=$lex2 foo3=$lex3 foo4=$lex4\n"',
1218 code => '$pkg .= "foo"',
1223 code => '$pkg .= $lex1',
1228 code => '$pkg .= $lex1 . $lex2',
1233 code => '$pkg .= "-foo-$lex1-foo-$lex2-foo-"',
1238 code => '$pkg = $lex1 . $lex2',
1243 code => '$pkg = $pkg . $lex2',
1248 code => '$pkg = $lex1 . $pkg',
1253 code => '$pkg = $pkg . $pkg',
1257 code => '$pkg = $lex1 . $lex2 . $lex3',
1261 code => '$pkg = "const$lex1"',
1265 code => '$pkg = "foo=$lex1 bar=$lex2\n"',
1270 code => '$pkg = "foooooooooo=$lex1 baaaaaaaaar=$lex2\n"',
1276 code => '$s = $a.$b.$c',
1281 code => '$s = "foo=$a bar=$b baz=$c"',
1286 code => '$s = "foo=$a bar=$b baz=$c"',
1291 code => '$s = "foo=$a bar=$b baz=$c"',
1298 code => '$s .= $a.$b.$c',
1304 code => '$s .= "foo=$a bar=$b baz=$c"',
1310 code => '$s .= "foo=$a bar=$b baz=$c"',
1316 code => '$s .= "foo=$a bar=$b baz=$c"',
1323 code => '$s .= $a.$b.$c',
1329 code => '$s .= "foo=$a bar=$b baz=$c"',
1335 code => '$s .= "foo=$a bar=$b baz=$c"',
1341 code => '$s .= "foo=$a bar=$b baz=$c"',
1347 code => '(($lex1 .= $lex2) .= $lex3) .= $lex4',
1356 code => '"foo" . $1',
1360 code => '$1 . "foo"',
1364 code => '$1 . $1',
1370 code => '$lex .= $1',
1375 code => '$lex .= $1 .$1',
1380 code => '$lex .= "-foo-$1-foo-$1-foo"',
1385 code => '$lex .= $1 .$1 . $1',
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"',
1407 code => 'my $lex = "foooooooooo=$1 baaaaaaaaar=$1\n"',
1412 code => '$lex = $1 . $1',
1417 code => '$lex1 = $lex1 . $1',
1422 code => '$lex1 = $1 . $lex1',
1426 code => '$lex = $1 . $1 . $1',
1430 code => '$lex = $1 . $1 . $1 . $1 . $1',
1434 code => '$lex = "const$1"',
1438 code => '$lex = "foo=$1 bar=$1\n"',
1443 code => '$lex = "foooooooooo=$1 baaaaaaaaar=$1\n"',
1447 code => '$lex = "foo1=$1 foo2=$1 foo3=$1 foo4=$1\n"',
1453 code => '$pkg .= $1',
1458 code => '$pkg .= $1',
1459 code => '$pkg .= $1 . $1',
1464 code => '$pkg .= "-foo-$1-foo-$1-foo-"',
1469 code => '$pkg = $1 . $1',
1474 code => '$pkg = $pkg . $1',
1479 code => '$pkg = $1 . $pkg',
1483 code => '$pkg = $1 . $1 . $1',
1487 code => '$pkg = "const$1"',
1491 code => '$pkg = "foo=$1 bar=$1\n"',
1496 code => '$pkg = "foooooooooo=$1 baaaaaaaaar=$1\n"',
1502 code => '$s = $1.$1.$1',
1507 code => '$s = "foo=$a bar=$1 baz=$1"',
1515 code => 's/(.)/$1-/g',
1521 code => 's/(.)/$1-/g',
1527 code => 's/(.)/$1-/g',
1533 code => 's/(.)/$1-/g',
1539 code => 's/(.)/$1-$1-$1/g',
1548 code => '$x = undef',
1552 code => 'undef $x',
1556 code => 'my $x = undef',
1560 code => 'undef my $x',
1565 code => '$x = []'
1569 code => '$x = []'
1573 code => 'my $x = []'
1577 code => '$x = {}'
1581 code => '$x = {}'
1585 code => 'my $x = {}'
1590 code => 'my $x = "abc"',
1595 code => '$x = 1',
1600 code => '$x = "abc"',
1605 code => '$x = 1',
1610 code => '$x = "abc"',
1615 code => '$r = $r1;',
1620 code => '$r = []; $r = $r1;',
1626 code => '$x[0] = 1',
1631 code => '$x[0] = []',
1636 code => '$x[0][1] = 1',
1641 code => '$x = bless {}, "X"'
1647 code => '!grep $_, @a;',
1652 code => '!grep $_, @a;',
1657 code => '$g = grep $_, @a;',
1662 code => '$g = grep $_, @a;',
1670 code => 'index($x, "b") == -1',
1675 code => 'index($x, "c") == -1',
1680 code => '$r = index($x, "b") == -1',
1685 code => '$r = index($x, "c") == -1',
1694 code => 'index $x, "b"',
1699 code => 'index $x, "b"',
1704 code => 'index $x, "bc"',
1709 code => 'index $x, "bc"',
1714 code => 'index $x, "ab"',
1719 code => 'index $x, "ab"',
1724 code => 'index $x, "bb"',
1730 code => 'index $x, "aa"',
1736 code => 'index $x, "xy"',
1742 code => 'index $x, "xy"',
1748 code => 'index $x, "xx"',
1754 code => 'index $x, "xy"',
1759 code => 'index $x, "bcd"',
1764 code => 'index $x, "bcd"',
1769 code => 'index $x, "abc"',
1774 code => 'index $x, "abc"',
1779 code => 'index $x, "b"',
1788 code => '$lex = join "", $lex1, $lex2',
1798 code => 'keys %h',
1803 code => 'keys %h',
1808 code => '!keys %h',
1813 code => '!keys %h',
1818 code => '$k = keys %h',
1823 code => '$k = keys %h',
1828 code => '() = keys %h',
1833 code => '() = keys %h',
1839 code => 'keys %h',
1844 code => 'keys %h',
1849 code => '!keys %h',
1854 code => '!keys %h',
1859 code => '$k = keys %h',
1864 code => '$k = keys %h',
1869 code => '() = keys %h',
1874 code => '() = keys %h',
1881 code => '!length($s);',
1886 code => '!length($s);',
1891 code => '$p = length($s);',
1896 code => '!length($s);',
1901 code => '!length($s);',
1906 code => '$p = length($s);',
1912 code => '!pos($s);',
1917 code => '!pos($s);',
1922 code => '$p = pos($s);',
1928 code => '!ref $r',
1933 code => '!ref $r',
1938 code => '!ref $r',
1944 code => '$x = ref $r',
1949 code => '$x = ref $r',
1954 code => '$x = ref $r',
1962 code => '@b = sort { $a <=> $b } @a',
1967 code => '@b = sort { $a + 1 <=> $b + 1 } @a',
1972 code => '@b = sort f @a',
1977 code => '@b = sort { $a cmp $b } @a',
1982 code => '@b = sort { ($a . "") cmp ($b . "") } @a',
1987 code => '@b = sort f @a',
1993 code => '@a = sort { $a <=> $b } @a',
1998 code => '@a = sort { $a + 1 <=> $b + 1 } @a',
2003 code => '@a = sort f @a',
2008 code => '@a = sort { $a cmp $b } @a',
2013 code => '@a = sort { ($a . "") cmp ($b . "") } @a',
2018 code => '@a = sort f @a',
2025 code => 'my ($x, $y) = split /:/, $s, 2;',
2031 code => '@a = split /:/, $s, 2;',
2036 code => 'my @a = split /:/, $s, 2;',
2041 code => '@$r = split /:/, $s, 2;',
2046 code => '@a = (split(/:/, $s, 2), 1);',
2055 code => '$s = sprintf "%d", $a1',
2060 code => '$s = sprintf "%8d", $a1',
2065 code => '$s = sprintf "foo=%8d", $a1',
2072 code => '$s = sprintf "%.0f", $a1',
2078 code => '$s = sprintf "foo=%.0f\n", $a1',
2083 code => '$s = sprintf "foo=%9.3f\n", $a1',
2090 code => '$s = sprintf "%.9g", $a1',
2096 code => '$s = sprintf "foo=%.9g\n", $a1',
2101 code => '$s = sprintf "foo=%9.3g\n", $a1',
2107 code => '$s = sprintf "%s", $a1',
2112 code => '$s = sprintf "foo=%s", $a1',
2117 code => '$s = sprintf "foo=%s bar=%s baz=%s", $a, $b, $c',
2124 code => 'sprintf "%s", $lex1',
2128 code => '$pkg = sprintf "%s", $lex1',
2133 code => '$pkg .= sprintf "%s", $lex1',
2137 code => '$pkg = sprintf "%s%s", $lex1, $lex2',
2142 code => '$pkg .= sprintf "%s%s", $lex1, $lex2',
2146 code => '$pkg = sprintf "foo=%s", $lex1',
2150 code => '$pkg = sprintf "foo=%s bar=%s\n", $lex1, $lex2',
2155 code => '$lex = sprintf "%s", $lex1',
2160 code => '$lex .= sprintf "%s", $lex1',
2164 code => 'sprintf "%s%s", $lex1, $lex2',
2168 code => '$lex = sprintf "%s%s", $lex1, $lex2',
2173 code => '$lex .= sprintf "%s%s", $lex1, $lex2',
2177 code => '$lex = sprintf "foo=%s", $lex1',
2181 code => '$lex = sprintf "foo=%s bar=%s\n", $lex1, $lex2',
2186 code => 'my $lex = sprintf "%s", $lex1',
2190 code => 'my $lex = sprintf "%s%s", $lex1, $lex2',
2194 code => 'my $lex = sprintf "foo=%s", $lex1',
2198 code => 'my $lex = sprintf "foo=%s bar=%s\n", $lex1, $lex2',
2204 code => '$s = sprintf "foo=%s bar=%s baz=%s", $a, $b, $c',
2213 code => '$_ = "aaa"; !s/./x/g;'
2220 code => '$k = values %h',
2225 code => '$k = values %h',
2230 code => '() = values %h',
2235 code => '() = values %h',
2243 code => '{1;}',
2249 code => '$x = do {1; $y}', # the ';' stops the do being optimised
2255 code => 'for my $x (1..1) {}',
2260 code => 'for $x (1..1) {}',
2265 code => 'for $x (1..1) {}',
2270 code => 'for (1..1) {}',
2275 code => 'for my $x (1..4) {}',
2280 code => 'for $x (1..4) {}',
2285 code => 'for $x (1..4) {}',
2290 code => 'for (1..4) {}',
2296 code => 'for my $x (1) {}',
2301 code => 'for $x (1) {}',
2306 code => 'for $x (1) {}',
2311 code => 'for (1) {}',
2316 code => 'for my $x (1,2,3,4) {}',
2321 code => 'for $x (1,2,3,4) {}',
2326 code => 'for $x (1,2,3,4) {}',
2331 code => 'for (1,2,3,4) {}',
2337 code => 'for my $x (@a) {}',
2342 code => 'for $x (@a) {}',
2347 code => 'for $x (@a) {}',
2352 code => 'for (1) {}',
2357 code => 'for my $x (@a) {}',
2362 code => 'for $x (@a) {}',
2367 code => 'for $x (@a) {}',
2372 code => 'for (@a) {}',
2378 code => 'for my $x (@a) {next}',
2384 code => '@a = grep $_ > 0, 1,2,3',
2390 code => '@a = grep { 1; $_ > 0} 1,2,3',
2396 code => '@a = map $_+1, 1,2,3',
2402 code => '@a = map { 1; $_+1} 1,2,3',
2408 code => 'while (++$i % 2) {}',
2413 code => 'while (++$i % 4) {}',
2419 code => '/^[acgt]+/',
2424 code => '/[acgt]+/',
2429 code => '/[acgt]+/',
2435 code => '/^(?:(.)(.))*?[XY]/',
2440 code => '/^(?:(.)(.))*[XY]/',