Lines Matching refs:keys

25     my ( $key) = keys %h;
39     my ( $key) = keys %h;
42     is scalar keys %$ob_reg, 0, "no auto-registry in idhash";
50     is scalar keys %$ob_reg, 0, "object registry empty";
52     is scalar keys %$ob_reg, 1, "object registry nonempty";
57     is scalar keys %hash, 1, "key present in registered hash";
59     is scalar keys %hash, 0, "key collected from registered hash";
60     is scalar keys %$ob_reg, 0, "object registry empty again";
73             is( keys %$ob_reg, 1, "one object registered");
76         is( keys %$ob_reg, 1, "object still registered");
78     is( keys %$ob_reg, 0, "object unregistered");
92         is( keys %h, 0, "deletion ($keytype)");
105     my ( $id) = keys %f;
123     is( keys %h, 1, "blip");
125     is( keys %h, 0, "blop");
142                 keys %$ob_reg,
147         is( keys %f, @$preload, "$type gone$pre");
151     is( keys %$ob_reg, @$preload, "no objs remaining$pre");
160             keys %$ob_reg,
167     is( keys %$ob_reg, @$preload, "all types unregistered$pre");
169 is( keys %$ob_reg, 0, "preload gone after loop");
177     is keys %h, 1, "autovivified key present";
179     is keys %h, 0, "autovivified key collected";
190         is( keys %f, $size, "many keys singly");
192             keys %$ob_reg,
197     is( keys %f, 0, "many keys singly gone");
199         keys %$ob_reg,
207         is( keys %f, $size, "many keys at once");
209             keys %$ob_reg,
214     is( keys %f, 0, "many keys at once gone");
216         keys %$ob_reg,
232     my $err = grep keys %$_ != @obs, @fields;
234     is( keys %$ob_reg, @obs, "$n_obs obs registered");
236     $err = grep keys %$_ != @obs, @fields;
238     is( keys %$ob_reg, @obs, "one ob unregistered");
240     $err = grep keys %$_ != @obs, @fields;
242     is( keys %$ob_reg, @obs, "all obs unregistered");
252     $g{ $_} = $f{ $_} for keys %f; # single assignment
255     is keys %$ob_reg, 0, "all keys collected";
256     is keys %f, 0, "orig garbage-collected";
257     is keys %g, 0, "single-copy garbage-collected";
258     is keys %h, 0, "wholesale-copy garbage-collected";