plan tests => 3;
use_ok( 'DBM::Deep' );
-can_ok( 'DBM::Deep', 'new' );
unlink "t/test.db";
my $db = DBM::Deep->new(
file => "t/test.db",
type => DBM::Deep->TYPE_ARRAY,
);
-print "Check error( $db )\n";
if ($db->error()) {
die "ERROR: " . $db->error();
}
-print "First assignment\n";
$db->[0] = [];
-print "second assignment\n";
-__END__
my $temp_db = $db->[0];
-print "loop\n";
for my $k ( 0 .. $max_levels ) {
$temp_db->[$k] = [];
$temp_db = $temp_db->[$k];
}
-print "done\n";
$temp_db->[0] = "deepvalue";
-print "undef\n";
undef $temp_db;
undef $db;