Select Code to Download

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';