Select Code to Download

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

...

package UNIVERSAL;
sub violation { ... }