package Foo;
use Class::Privacy;
#...

package Cracker;
my $f = new Foo;
CORE::bless $f, 'Foo';
$f->_violate_privacy; # works

##</code><code>##

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