view release on metacpan or  search on metacpan

lib/App/Glacier/Directory/GDBM.pm  view on Meta::CPAN

package App::Glacier::Directory::GDBM;
use parent 'App::Glacier::DB::GDBM';

sub configtest {
    my ($class, $cfg, @path) = @_;
    unless ($cfg->isset(@path, 'file')) {
	$cfg->set(@path, 'file', '/var/lib/glacier/inv/$vault.db');
    }
    $class->SUPER::configtest($cfg, @path);
}

1;