Copy subroutines in Perl

no strict 'refs';
*{ $self . '::sub' } = \&{ $class . '::sub' };