5 use Test::More tests => 14;
10 my $db = DBM::Deep->new(
14 $db->{key1} = "value1";
17 # clone db handle, make sure both are usable
19 my $clone = $db->clone();
21 is($clone->{key1}, "value1");
23 $clone->{key2} = "value2";
24 $db->{key3} = "value3";
26 is($db->{key1}, "value1");
27 is($db->{key2}, "value2");
28 is($db->{key3}, "value3");
30 is($clone->{key1}, "value1");
31 is($clone->{key2}, "value2");
32 is($clone->{key3}, "value3");
36 is($clone->{key1}, "value1");
37 is($clone->{key2}, "value2");
38 is($clone->{key3}, "value3");
46 is($db->{key1}, "value1");
47 is($db->{key2}, "value2");
48 is($db->{key3}, "value3");