package test;
use strict;
sub new{
 my $class = shift;
my $self = {};
$self->{NAME}=undef;
$self->{PROPERTIES}=[];
bless($self, $class);
return $self;
}
sub name {
my $self = shift;
if (@_) {$self ->{NAME}=shift};
return $self->{NAME};
}
sub properties {
my $self = shift;
if (@_) {@{$self->{PROPETIES}} = @_}
return @{$self->{PROPERTIES}};
}
1;