Select Code to Download

sub _private_sub {
   die "_private_sub is private!" unless caller eq __PACKAGE__;
   # private stuff #
}

package Foo;

...
package Baz;
use base 'Bar';

Baz->new->bar;