my $named_point_class = with_traits( 
   'Point',
   (
    'Named',
   ),
);
my $point_instance = $named_point_class->new(
   x => 1,
   y => 1,
   name => 'my_point', 
);