on_cast  perl  cast_self
