sub get
{

  my $self = shift;
  my $propName = shift;
  return $self->{$propName};
}