sub get_sub_by_name {
	my ($pkg, $name) = @_ ;
	no strict 'refs' ;
	if ( defined &{$pkg . '::'. $name} ) {
		return \&{$pkg . '::'. $name} ;
	}
}