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

sub _do_private_stuff {
	print $self->{foo};
}