Lines Matching refs:copy
142 my $copy = {};
145 tie %$copy, ref $class;
147 $copy = {%$hash};
148 ok (brute_force_exists ($copy, $key),
150 is (delete $copy->{$key}, $key, "hv_delete_ent present$message $printable");
151 ok (!brute_force_exists ($copy, $key),
153 $copy = {%$hash};
154 ok (brute_force_exists ($copy, $key),
156 is (XS::APItest::Hash::delete ($copy, $key), $key,
158 ok (!brute_force_exists ($copy, $key),
165 my $copy = {};
168 tie %$copy, ref $class;
170 $copy = {%$hash};
171 is (delete $copy->{$key}, undef, "hv_delete_ent absent$message $printable");
172 $copy = {%$hash};
173 is (XS::APItest::Hash::delete ($copy, $key), undef,