Select Code to Download

use Class::Std;

...
    my $self = shift;
    @{$example_array_of{ident $self}} = @_;
}

use Class::Std;

...

sub get_example_array { return @example_array; }
sub set_example_array { shift; @example_array = @_; }