sub get_sub_by_name {
	my ($pkg, $name) = @_ ;
	no strict 'refs' ;
	if ( exists ${$pkg . '::'}{$name} ) {
		if ( ref ${$pkg . '::'}{$name} eq 'CODE' ) {
			return *{$pkg . '::' . $name} ;
		}
	} ;
}