Lines Matching full:each

70     is(each %h, 'beer', "first iterator");
71     is(each %h, 'perl', "second iterator");
72     is(each %h, undef, "third iterator is undef");
87         my $k = each %h;
100     my $k1 = each %h;
107         my $k = each %h;
134     my $k1 = each %h;
142         my $k = each %h;
207     push @got, scalar each %Camelus;
208     push @got, scalar each %Camelus;
209     push @got, scalar each %Camelus;
210     is(scalar each %Camelus, undef, 'Fourth each returned undef');
216     push @got, scalar each %Camelus;
224     push @got, scalar each %Camelus;
225     push @got, scalar each %Camelus;
226     my $fourth = scalar each %Camelus;
227     isnt($fourth, undef, 'Fourth each did not return undef');
229     is(scalar each %Camelus, undef, 'Fifth each returned undef');