10 lines
256 B
Plaintext
10 lines
256 B
Plaintext
{ '$DB ok' if defined $DB && $DB->isa('esmith::ConfigDB') }
|
|
{ my $ok = 1;
|
|
foreach my $rec ($DB->get_all) {
|
|
my $key = $rec->key;
|
|
my $type = $rec->props <= 1 ? "SCALAR" : "HASH";
|
|
$ok = 0 unless *{$key}{$type};
|
|
}
|
|
'default vars ok' if $ok;
|
|
}
|