##
$model->connect('input','n1');
$model->connect('input','n2');
$model->connect('n1','output');
$model->connect('n2','output');
##
##
sub new {
my $class = shift;
my $self = {};
$self -> {NAME} = undef;
bless $self, $class;
return $self;
}
##
##
sub name {
my $self = shift;
$self -> {NAME} = shift if (@_);
return $self -> {NAME};
}