use MooseX::MungeHas 'is_rw';
has foo => ();

##</code><code>##

hasrw 'weight'; # read-write
hasro 'roattr'; # read-only