Lines Matching refs:clone

44 foreach my $clone ( \%hash, dclone(\%hash), thaw(nfreeze(\%hash)) ){
46   ok( tied(%$clone), "copy is tied");
47   isa_ok( tied(%$clone), "Tie::RefHash" );
49   my @keys = keys %$clone;
57   is( $clone->{$key}, "value", "and is still pointing at the same value" );
60   is( $clone->{$reg}, "other", "and is also a valid key" );
66 foreach my $clone ( \%only_refs, dclone(\%only_refs), thaw(nfreeze(\%only_refs)) ){
68   ok( tied(%$clone), "copy is tied");
69   isa_ok( tied(%$clone), "Tie::RefHash" );
71   my @keys = keys %$clone;
78   is( $clone->{$key}, "value", "and is still pointing at the same value" );