The Class::Privacy Perl module implements object privacy.