Perl ties don't prevent you from accessing the object data. You can get the object back with tied, or say the return value from tie.

my $object = tie my $scalar, 'Tie::Scalar::SomethingCool';
my $object2 = tied( $scalar );
[download]

Of course, people have to do a little more work to do that, but the people that want to mess with your internals won't mind the work.