У меня такое есть

G_Z 26.11.2007 23:45 / 26.11.2007 23:47

Использую для дисциплинирования себя и людей, работающих с моим кодом.
Требование к классам одно — у них всегда должно быть поле $sUUID.

Дальше всё просто, нужно проверить совпадает ли собственный UUID с вызывающим:

^if($caller.self.sUUID ne $self.sUUID){^throw[xxx]}

Я вынес это в статический класс полезностей и вставил вызов метода с подобным кодом в каждом protected-методе.

К сожалению, эмулировать таким извратом можно только protected-методы, private сделать нельзя: sUUID перекрывается дочерним классом.
Впрочем, private мне и не требовался.

---