use Aspect;
  before { print 'foo' }
     call qr/^Employee::calc_/ &
     cflow company => 'Company::calc_salaries';