package Entities::Entity;

our $AUTOLOAD;
use constant UNDEF_VALUE => '##UNDEF_VALUE##';

sub new() {
    my ($class) = @_;
    my $self = {
    };
    bless $self, $class;
    return $self;
}

sub AUTOLOAD {
    my ($self, $val) = @_;
	
    my $type = ref($self) or croak "$self is not an object";

    my $name = $AUTOLOAD;
    $name =~ s/.*://;   # strip fully-qualified portion
    if (defined($val)) {
		if ($val eq UNDEF_VALUE) {
			$self->{$name} = undef;
		} else {
	        return $self->{$name} = $val;
		}
    } else {
		my $val = $self->{$name};
		$self->{$name} = undef unless (defined($val));
		if (ref($val) eq "HASH") {
			return \%$val;
		}
		if (ref($val) eq "ARRAY") {
			return \@$val;
		}
        return $val;
    }
}