Select Code to Download

use Modern::Perl;
use Moose::Util qw( with_traits );
...
   y => 1,
   name => 'my_point', 
);#To satisfy the required values

has 'name' => (
    isa => 'Str',
...
    default => 'change_me',
    writer => 'set_name',
);