Select Code to Download

#!/usr/bin/perl

use strict;
...
my $stuff = new MyClass(somearray => \@array);

print Dumper($stuff);

Attribute (somearray) does not pass the type constraint (__ANON__) wit
+h 'ARRAY(0x81d3b74)' at /usr/share/perl5/Moose/Meta/Attribute.pm line
+ 221
        Moose::Meta::Attribute::initialize_instance_slot('Moose::Meta:
+:Attribute=HASH(0x8451b3c)', 'Moose::Meta::Instance=HASH(0x8451f5c)',
+ 'MyClass=HASH(0x84520dc)', 'HASH(0x835c518)') called at /usr/share/p
+erl5/Moose/Meta/Class.pm line 102
        Moose::Meta::Class::construct_instance('Moose::Meta::Class=HAS
+H(0x844b9a4)', 'somearray', 'ARRAY(0x81d3b74)') called at /usr/share/
+perl5/Class/MOP/Class.pm line 306
        Class::MOP::Class::new_object('Moose::Meta::Class=HASH(0x844b9
+a4)', 'somearray', 'ARRAY(0x81d3b74)') called at /usr/share/perl5/Moo
+se/Meta/Class.pm line 81
        Moose::Meta::Class::new_object('Moose::Meta::Class=HASH(0x844b
+9a4)', 'somearray', 'ARRAY(0x81d3b74)') called at /usr/share/perl5/Mo
+ose/Object.pm line 26
        Moose::Object::new('MyClass', 'somearray', 'ARRAY(0x81d3b74)')
+ called at moose_test.pl line 26