sub real_method { ... }
sub real_sub { ... }
{ no strict 'refs'; *{$_} = \&real_method for ( qw( foo bar baz blort ) ) }
{ no strict 'refs'; *{$_} = \&real_sub for ( qw( quux pony ) ) }