Select Code to Download

package AXField;

...

}
1;

&Fld = AXField->new(Name => $Prop[0], Value => ' ', isKey => 1, Len =>
+ $Length, DecimalPos => $prec, Type => $Prop[4], ParentRec => $self->
+Name);

Attribute (isKey) does not pass the type constraint because: Validatio
+n failed f
or 'Boolean' with value 1 (not isa Boolean) at C:\Perl64\lib\Moose\Obj
+ect.pm lin
e 24