on_cast perl check_self