Lines Matching refs:map
4 # grep() and map() tests
19 my @mapped = map {scalar @$_} @lol;
33 print map({$_} ("ok $test\n"));
35 print map
38 print((map({a => $_}, ("ok $test\n")))[0]->{a});
40 print((map
44 print map { $_ } ("ok $test\n");
46 print map
49 print((map {a => $_}, ("ok $test\n"))[0]->{a});
51 print((map
56 print map($_&$x,("ok $test\n"));
58 print map
61 print map { $_ & $x } ("ok $test\n");
63 print map
101 # Tests for "for" in "map" and "grep"
107 @x = map { $y .= $_ for 1..2; 1 } 3..4;
112 @x = map { $y .= $_ for 1..2; $y .= $_ } 3..4;
117 @x = map { for (1..2) { $y .= $_ } $y .= $_ } 3..4;
133 $a = 1; map {if ($a){}} (2);
140 map {"${_}x"} @_;
162 undef $gimme; map { gimme } @list; ok($gimme, 'list'); $test++;
167 my @empty = map { while (1) {} } ();