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