sub setvalue {
   my $self = shift;
   my $path = shift;
   my $value = shift;

   my ($node, $myChild);

   if ( $node = @{$self->{_element}->findnodes($path)}[0] ) {
      $node->removeChildNodes();
      $node->appendTextNode( $value );  
   }

   return $self;
}