5 use Test::More tests => 2;
7 use t::common qw( new_fh );
14 array1 => [ "elem0", "elem1", "elem2", { foo => 'bar' }, [ 5 ] ],
16 subkey1 => "subvalue1",
17 subkey2 => "subvalue2",
18 subkey3 => bless( {}, 'Foo' ),
23 my ($fh, $filename) = new_fh();
24 my $db = DBM::Deep->new({
30 # Create structure in DB
32 $db->import( %struct );
45 array1 => [ "elem0", "elem1", "elem2", { foo => 'bar' }, [ 5 ] ],
47 subkey1 => "subvalue1",
48 subkey2 => "subvalue2",
49 subkey3 => bless( {}, 'Foo' ),