[Everydevel-opers] SF.net SVN: everydevel: [968] trunk/ebase

[<pau...@us...>]

Revision: 968
          http://svn.sourceforge.net/everydevel/?rev=968&view=rev
Author:   paul_the_nomad
Date:     2007-06-06 03:02:13 -0700 (Wed, 06 Jun 2007)

Log Message:
-----------
A couple of utility methods

Modified Paths:
--------------
    trunk/ebase/lib/Everything/XML/Node.pm

Property Changed:
----------------
    trunk/ebase/


Property changes on: trunk/ebase
___________________________________________________________________
Name: svk:merge
   - 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:1016
a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930
   + 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:1017
a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930

Modified: trunk/ebase/lib/Everything/XML/Node.pm
===================================================================
--- trunk/ebase/lib/Everything/XML/Node.pm	2007-06-06 10:01:52 UTC (rev 967)
+++ trunk/ebase/lib/Everything/XML/Node.pm	2007-06-06 10:02:13 UTC (rev 968)
@@ -522,6 +522,32 @@
 
 }
 
+sub get_attribute {
+    my ( $self, $name ) = @_;
+
+    my $atts = $self->get_attributes;
+    foreach ( @$atts ) {
+	next unless $_->get_name eq $name;
+	return $_;
+    }
+
+    return;
+}
+
+
+sub get_var {
+    my ( $self, $name ) = @_;
+
+    my $vars = $self->get_vars;
+    foreach ( @$vars ) {
+	next unless $_->get_name eq $name;
+	return $_;
+    }
+
+    return;
+}
+
+
 package Everything::XML::Node::Attribute;
 
 {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.