package My;
use Moose;

has list => ( is      => 'rw',
              isa     => 'ArrayRef[Str]',
              traits  => [qw[ Array ]],
              handles => {
                  add_to_list   => 'push',
                  list_elements => 'elements',
                  map_list      => 'map'
              },
);