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;