my $mod = __PACKAGE__;
$mod =~ s{::}{/}g;
$mod .= '.pm';
$mod = $INC{$mod};
$mod =~ s/EPD\.pm//i;

my $module_dir_qfn = realpath($mod);
my $db_dir_qfn     = catdir($module_dir_qfn, 'db');