Select Code to Download

package My;
use Moose;
has list => ( is  => 'rw',
              isa => 'ArrayRef[Str]',
);

my $obj = 'My'->new(list => [qw[ a b c ]]);
$obj->list([ map uc, @{ $obj->list } ]);

package My;
use Moose;
...
                  map_list      => 'map'
              },
);

$obj->list([ $obj->map_list(sub { uc }) ]);

#!/usr/bin/perl
use warnings;
...
$obj->add_to_list(qw( a b c ));
$obj->apply_to_list(sub { uc });
say for $obj->list_elements;

                  handles => {
                      add_to_list   => 'push',
                      list_elements => 'elements',
                      apply_to_list => 'apply',    
                  },

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,