Example – Setting NODE

• 478 my ($temp,$pid)=@_;

• 479 if (ref($temp) eq "Mine::Pic::Node") {

• 480 $pid=$temp->id;

• 481 } else {

• 482 $pid=$temp;

• 483 }

• 484 $self->{NODE}=$pid;

• 485 $self->_taint;

• 486 return $self->{NODE};