{
        package MyArray;
        use namespace::autoclean;
        use Moose::Util::TypeConstraints;
        use Moose;

        subtype 'myarray' 
          => as 'ArrayRef[Num|Str|Int]';
        coerce  'myarray'
          => from 'Num|Str|Int'
             => via {[$_]};

        has 'myarray' => (
            traits  => ['Array'],
            is      => 'rw',
            isa     => 'myarray',
            default => sub { [] },
            handles => {
                push      => 'push',
                get       => 'get',
                set       => 'set',
                elements  => 'elements',
                count     => 'count',
            },
            coerce => 1,
        );

        __PACKAGE__->meta->make_immutable;

    }

    use Modern::Perl;

    my $a0 = MyArray->new( myarray => [ 0, [ 0, 0, 0 ], [1,2,3] ] ) ;
 
    use Data::Dumper;

    print Dumper $a0;

    $a0->set(1,'cat');
    print Dumper $a0;

    $a0->push(2.0);
    print Dumper $a0;