view release on metacpan or  search on metacpan

lib/Config/XPath.pm  view on Meta::CPAN

      croak "No config found at '$path'";
   }

   if ( scalar @nodes > 1 ) {
      croak "Found more than one node at '$path'";
   }

   return shift @nodes;
}

sub get_node_attrs($)
# Get a hash of the attributes, putting the node name in "+"
{
   my ( $node ) = @_;

   my %attrs = ( '+' => $node->getName() );

   foreach my $attr ( $node->getAttributes() ) {
      $attrs{$attr->getName} = $attr->getValue;
   }