checking a method is not subclassed

water has asked for the wisdom of the Perl Monks concerning the following question:

Hi --

What would be the appropriate code to put in class Baz to throw an error if method Baz::foo was subclassed? And should such code go in a BEGIN block?

Thanks!