package Entity;
#
# Base-class for a visual, graph topology - gene@ology.net
#
use strict;

sub new {
  my $proto = shift;
  my $class = ref $proto || $proto;

  my $self = {};

  $self->{_size} = 0;
  $self->{_name} = '';

  bless $self, $class;
  return $self;
}

sub destroy { }

sub size {
  my $self = shift;
  $self->{_size} = shift if @_;
  return $self->{_size};
}

sub name {
  my $self = shift;
  $self->{_name} = shift if @_;
  return $self->{_name};
}

#--------------------#
1;