Lines Matching refs:seen
9 my %seen;
15 $seen{'TIEARRAY'}++;
22 $seen{'STORESIZE'}++;
29 $seen{'EXTEND'}++;
36 $seen{'FETCHSIZE'}++;
42 $seen{'FETCH'}++;
49 $seen{'STORE'}++;
56 $seen{'UNSHIFT'}++;
63 $seen{'PUSH'}++;
70 $seen{'CLEAR'}++;
76 $seen{'DESTROY'}++;
81 $seen{'POP'}++;
88 $seen{'SHIFT'}++;
95 $seen{'SPLICE'}++;
161 print "not " unless $seen{'FETCH'} >= 3;
166 print "not " unless $seen{'STORE'} >= 3;
183 print "not " unless $seen{'POP'} == 1;
189 print "not " unless $seen{'PUSH'} == 1;
197 print "not " unless $seen{'SPLICE'} == 1;
209 print "not " unless $seen{'SHIFT'} == 1;
215 print "not " unless $seen{'UNSHIFT'} == 1;
236 $seen{POP} = 0;
238 print "not " unless $seen{POP} == 1;
240 $seen{SHIFT} = 0;
242 print "not " unless $seen{SHIFT} == 1;
244 $seen{PUSH} = 0;
246 print "not " unless $seen{PUSH} == 1;
248 $seen{UNSHIFT} = 0;
250 print "not " unless $seen{UNSHIFT} == 1;
327 print "not " unless $seen{'DESTROY'} == 3;