If getDBH() doesn't actually depend on $common and it's state you could do

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

otherwise you could store a wrapper to the getDBH() invocation:

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