Lines Matching full:each

16 (@r) = each @array;
17 is (scalar @r, 2, "'each' on array returns index and value of next element");
20 ($k, $v) = each @array;
23 ($k, $v) = each @array;
26 (@r) = each @array;
30 (@r) = each @array;
34 ($k) = each @array;
39 (@r) = each @lex_array;
40 is (scalar @r, 2, "'each' on array returns index and value of next element");
43 ($k, $v) = each @lex_array;
46 ($k) = each @lex_array;
48 (@r) = each @lex_array;
54 (@r) = each @$ar;
56     "'each' on array inside reference returns index and value of next element");
60 (@r) = each @$ar;
64 is (each @$ar, 0, "scalar context 'each' on array returns expected index");
65 is (scalar each @$ar, undef,
77 ($k, $v) = each @array;
85 ($k, $v) = each @array;
100 ($k, $v) = each @array;
106     "following 'values' and 'each', 'values' continues to return expected list of values");
108 ($k, $v) = each @array;
110     "following 'values', 'each' and 'values', 'each' continues to return expected index");
112     "following 'values', 'each' and 'values', 'each' continues to return expected value");
115 while (each @array) { }
117 # each(ARRAY) in the conditional loop
119 while (($k, $v) = each @array) {
120     is ($k, $c, "'each' on array in loop returns expected index '$c'");
122         "'each' on array in loop returns expected value '$array[$k]'");
126 # each(ARRAY) on scalar context in conditional loop
132 while ($k = each @array) {
134         "'each' on array in scalar context in loop returns expected index '$v'");
138 # each(ARRAY) in the conditional loop
140 for (; ($k, $v) = each @array ;) {
142         "'each' on array in list context in loop returns expected index '$c'");
144         "'each' on array in list context in loop returns expected value '$array[$k]'");
148 # each(ARRAY) on scalar context in conditional loop
153 for (; $k = each(@array) ;) {
155         "'each' on array in scalar context in loop returns expected index '$v'");
162     my ($i, $v) = each @a;
165     ($i, $v) = each @a;
173     my ($i, $v) = each @array;
177         my ($i, $v) = each @array;
180         ($i, $v) = each @array;
184     ($i, $v) = each @array;
188     while (each @array) { }
193 ($a, $b) = each our @a;
194 is "$a $b", "0 7", 'each in list assignment';