Changeset 17335

Timestamp:

08/11/08 00:13:04 (5 years ago)

Author:

daisuke

Message:

Add has_dom_content

Location:

lang/perl/MooseX-DOM/trunk/lib/MooseX

Files:

• DOM.pm (modified) (1 diff)
• DOM/LibXML.pm (modified) (3 diffs)

lang/perl/MooseX-DOM/trunk/lib/MooseX/DOM.pm

@@ -179 +179 @@
   );
 
+=head2 has_dom_content $name
+
+If your node only contains text data (that is, your root node does not have any
+subsequent element nodes as its child), you can access the text data directly
+with this declaration
+
 =head1 AUTHOR
 

lang/perl/MooseX-DOM/trunk/lib/MooseX/DOM/LibXML.pm

@@ -79 +79 @@
             $node->appendChild($child);
         }
+
         $child->removeChildNodes();
         $child->appendTextNode($value);
@@ -148 +149 @@
             });
         },
+        has_dom_content => sub {
+            return Class::MOP::subname($subname->('has_dom_content') => sub ($) {
+                my $caller = caller();
+                my $name = shift;
+                my $method = $subname->($name, $caller);
+                $subassign->($method => sub {
+                    my $self = shift;
+                    my $node = $self->node;
+                    return () unless $node;
+
+                    if (@_) {
+                        $node->removeChildNodes();
+                        $node->appendText($_[0]);
+                    }
+
+                    return $node->textContent;
+                } );
+            });
+        },
         has_dom_attr => sub {
             return Class::MOP::subname($subname->('has_dom_attr') => sub ($;%) {
@@ -162 +182 @@
                     my $self = shift;
                     my $node = $self->node;
+                    return () unless $node;
+
                     if (@_) {
                         $node->setAttribute($name, $_[0]);