Yet another way to do it is with the use of appropriately scoped anonymous subs...

my $private_method = sub {
   # ... do stuff only class things should know
};

$private_method->();
[download]

    --k.