$parser->{ 'getDBH' } = \&common_class::getDBH;

##</code><code>##

$parser->{ 'getDBH' } = sub { $common->getDBH; };