package p2; use Moose; extends 'p1'; has '+var1' =>( writer => 'set_var1', ); 1;