on_cast openssl cast_self && on_cast perl check_self