sub code_ref_for_subroutine {
    my($proto, $name) = @_;
    do {
	no strict;
	local(*p) = *{$proto->package_name . '::'};
	if (exists($p{$name})) {
	    local(*n) = $p{$name};
	    return *n{CODE}
		if defined(*n{CODE});
	}
    };
   return;
}