*{ $caller . '::d_area' } = 'Dsay::d_area';