my %subs = (
    new   => sub { # constructor goes here... },
    greet => sub { # Greeter goes here... },
);

while (my ($name, $code) = each %subs) {
    no strict 'refs';
    *{$pkg_sub . '::' . $name} = $code;
}