on_cast perl cast_self
