sub public_method {
	my ($self,$args) = @_;
	$self->{foo} = $args;
	$self->_do_private_stuff();
}

sub _do_private_stuff {
	my $self = shift;
	print $self->{foo};
}