package M1;


use Mouse;

has 'x' => (is => 'rw');
has 'y' => (ks => 'rw');

1;

use M1;

my $m = M1->new(x => 55);

warn $m->x;

$m->x(888);

warn $m->x;