$obj = bless {}, 'Bar';
$obj->violation; # succeeds with UNIVERSAL::violation

package Bar;
# no methods

package UNIVERSAL;
sub violation { ... }