#!/usr/bin/env perl

use warnings;
use strict;

{
	package Foo;
	use Moose;
	
	has priv_attr => (
		is		=> 'rw',
		isa		=> 'Str',
		reader	=> '_priv_attr',
		writer	=> '_priv_attr'
	);
	
	sub do_stuff {
		my $self = shift;
		$self->_priv_attr( 1 );
		$self->_priv_attr;
	}
	
	1;
}

Foo->new->do_stuff;