I think this is an interesting idea, but I'm not sure I care for it. OO programming in Perl basically has the caveat "opening the box voids the warranty". However, if you're willing to void the warranty, open the box (of course, most who will, shouldn't :).

However, if you can think of a reason why you would want this, you might want to check out Attribute::Protected, on the CPAN.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.