{   no strict 'refs';
    *{ $class . '::' . $name } = sub { ... };
}