Lines Matching refs:k
10 our (@array, @r, $k, $v, $c);
20 ($k, $v) = each @array;
21 is ($k, 1, "got expected index of next element");
23 ($k, $v) = each @array;
24 is ($k, 2, "got expected index of remaining element");
34 ($k) = each @array;
35 is ($k, 1, "got index when only index was assigned to variable");
43 ($k, $v) = each @lex_array;
44 is ($k, 1, "got expected index of next element");
46 ($k) = each @lex_array;
47 is ($k, 2, "got expected index of remaining element");
77 ($k, $v) = each @array;
78 is ($k, 0, "got expected index");
85 ($k, $v) = each @array;
86 is ($k, 0, "following 'keys', got expected index");
100 ($k, $v) = each @array;
101 is ($k, 0, "following 'values', got expected index");
108 ($k, $v) = each @array;
109 is ($k, 0,
119 while (($k, $v) = each @array) {
120 is ($k, $c, "'each' on array in loop returns expected index '$c'");
121 is ($v, $array[$k],
122 "'each' on array in loop returns expected value '$array[$k]'");
130 $k = 0;
132 while ($k = each @array) {
133 is ($k, $v,
140 for (; ($k, $v) = each @array ;) {
141 is ($k, $c,
143 is ($v, $array[$k],
144 "'each' on array in list context in loop returns expected value '$array[$k]'");
151 $k = 0;
153 for (; $k = each(@array) ;) {
154 is ($k, $v,