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