Select Code to Download

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;
...
    bless $self, $class;
    return $self;
}

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