package AXField;

# Our libraries
use lib 'C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities';
use Moose;


# Attributes
has 'Name' => (is => 'rw', isa => 'Str', required => 1);
has 'Value' => (is => 'rw', isa => 'Str', reader => 'Value', writer => 'SetValue');
has 'isKey' => (is => 'rw', isa => 'Boolean');
has 'Len'  => (is=>'rw', isa => 'Num');
has 'DecimalPos' => (is => 'rw', isa => 'Num'); 
has 'Type' => (is => 'rw', isa => 'Str'); 
has 'OriginalValue' => (is => 'rw', isa => 'Str'); 
has 'ParentRec' => (is => 'rw', isa => 'Str', required => 1); 
has 'Populated' => (is => 'rw', isa => 'Str');

# Contains a single field

sub BUILD
# Constructor
{
	my $self;
	
	$self = shift;
	$self->Populated(0);
	$self->OriginalValue(' ');
	$self->SetValue(' ');
	
}

sub Value
{
	my $self;
	
	$self = shift;
	return $self->Value;
}
sub SetValue
{
	my $self;
	
	$self = shift;
	$self->Value = shift;
	
	if ($self=>Populated() eq 'N')
		{
		$self=>Populated() eq 'Y';
		}

}
1;

##</code><code>##

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

##</code><code>##

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