Example – Getting NODE

• 449 sub _p_node {

• 450 my $self=shift;

• 451 return 0 unless $self->valid;

• 452 return 1 if $self->{N_PREP};

• 453 $self->{NODE_OBJ}=Mine::Pic::Node->new( $self->{NODE});

• 454 $self->{N_PREP}=$self->{NODE_OBJ}->valid;

• 455 return $self->{N_PREP};

• 456 }