my $o = Foo->new;
$o->locked = 1;
$o->writeable = 0;
$o->readable = 1;