AA/Net.pm

   1 package AA::NetV;
   2
   3 our @ISA = ('AA::Vertex');
   4
   5 sub new($$$$) {
   6         my ($class, $id) = @_;
   7         my $v = AA::Vertex::new($class, $id);
   8         $v->Set('x', 100);
   9         $v->DefSet('y0', 100);
  10         $v->DefSet('h', 0);
  11         $v->Bind('y', sub { $v->Get("y0") + 100*$v->Get("h") });
  12         return $v;
  13 }
  14
  15 1;