nodes: input, n1, n2, output input => n1 input => n2 n1 => output n2 => output #### $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}; }