#!/usr/bin/perl5

# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $

{
    package Any_DBM_File;
    @ISA = (NDBM_File, ODBM_File, GDBM_File, SDBM_File, DB_File, DBZ_File);
}

bootstrap Any_DBM_File;

tie %h, Any_DBM_File, 'Op.ndbm', 0x202, 0640;

$h{BAR} = 'bar';
$h{FOO} = 'foo';

while (($key,$val) = each %h) { print "$key => $val\n"; }
@keys = sort keys %h;
@values = sort values %h;
print "@keys\n@values\n";

untie %h;

