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

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