Lines Matching refs:hash
43 my %hash = (question => '?', answer => 42, extra => 'junk', undef => undef);
44 lock_hash %hash;
45 unlock_value %hash, 'answer';
46 unlock_value %hash, 'extra';
47 delete $hash{'extra'};
65 my $hash = shift;
67 my $copy = &$cloner($hash);
69 my @in_keys = sort keys %$hash;
77 # $copy = $hash; # used in initial debug of the tests
79 ok ++$test, Internals::SvREADONLY(%$copy), "cloned hash restricted?";
107 testit (\%hash, $cloner);
108 my $object = \%hash;