sub install_methods { my ($class, %methods) = @_; my $target = $class->find_target_class; my $methods = join ', ', keys %methods; warn "Installing $methods in $target\n"; $class->SUPER::install_methods( %methods ); }