Select Code to Download

my $list_item = {
     obj      => $server,
     selected => 0,
};

@servers = map  { $_->{obj} }
           grep { $_->{selected} } @servers;

     1  package Trait::Selected;
     2
     3  use strict;
...
    24  }
    25
    26  1;

# This used to be $item->{selected} = 1; and is really easy to mistype
$object->is_selected(1);  # Mistyping the method becomes a runtime fai
+lure

@servers = map  { $_->{obj} }
  grep { $_->{selected} } @servers;