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