up_trigger test-simple dispel_self &&
up_trigger perl cast_self
