2 use Test::More tests => 9;
4 use t::common qw( new_fh );
8 my ($fh, $filename) = new_fh();
9 my $db = DBM::Deep->new(
16 $db->{foo} = { a => 'b' };
20 is( $x, $y, "The references are the same" );
28 is( $db->{foo}, undef );
30 # These shenanigans work to get another hashref
31 # into the same data location as $db->{foo} was.