Продолжаем стрелять себе в ноги.

Вы вызываете деструктор класса Нога с параметром Пуля.

$me =~ m{(?i:foot)(?{shoot ^N})}x; shoot $_ foreach grep {$_->isa('foot')} @me;

пытаясь прострелить себе ногу, случайно создаете новое окружение, в котором простреливаете ногу своему ребенку

создаете новую ногу с зияющей в ней дырой, пытаетесь открутить свою правую ногу и вставить на ее место новую, но из-за ошибки в аксессоре откручиваете себе голову

Haskell:

instance Leg Bullet where
 ....

SHOOT IN body WHERE finiteness='foot'