Help for this page
use Encapsulation; sub new { ... } 1;
#!/usr/bin/perl use strict; ... is $o->foo, 42, "secrets of different classes do not interfere"; ok !defined $o->{secret}, 'cannot reach into objects';