package p1;
use Moose;

has 'var1' => (
	is => 'ro',
	reader => 'get_var1',
	default => 'var1-p1',
);

1;

##</code><code>##

package p2;
use Moose;
extends 'p1';

has '+var1' =>( 
	writer => 'set_var1',
);

1;