Select Code to Download

package Foo;
use Class::Privacy;
...
my $f = new Foo;
CORE::bless $f, 'Foo';
$f->_violate_privacy; # works

sub _explode {
 die 'I decided to blow up';
}