From ca60f18e9906e84355287ac427f5f9e6e6b36b41 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Tue, 21 Apr 2009 15:25:44 +0200
Subject: docs, and changed the export-munging methods for builders

---
 lib/Tree/Template/Declare/HTML_Element.pm | 48 +++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

(limited to 'lib/Tree/Template/Declare/HTML_Element.pm')

diff --git a/lib/Tree/Template/Declare/HTML_Element.pm b/lib/Tree/Template/Declare/HTML_Element.pm
index 1480987..c2dd87c 100644
--- a/lib/Tree/Template/Declare/HTML_Element.pm
+++ b/lib/Tree/Template/Declare/HTML_Element.pm
@@ -10,6 +10,21 @@ sub new {
     return bless {},$class;
 }
 
+sub _munge_exports {
+    my ($self,$exports)=@_;
+
+    return {
+        %$exports,
+        text_node => sub($) {
+            $exports->{node}->(
+                sub {
+                    $exports->{name}->('~text');
+                    $exports->{attribs}->(text => $_[0]);
+                });
+        },
+    };
+}
+
 sub new_tree {
     my ($self)=@_;
 
@@ -57,3 +72,36 @@ sub set_node_attributes {
 }
 
 1;
+__END__
+
+=head1 NAME
+
+Tree::Template::Declare::HTML_Element
+
+=head1 SYNOPSIS
+
+See L<Tree::Template::Declare>.
+
+=head1 SPECIFICITIES
+
+This module will build trees using L<HTML::Element>.
+
+To create text nodes, you would be forced to say:
+
+  node {
+    name '~text';
+    attribs text => 'some text';
+  }
+
+which is too cumbersone. You can instead use:
+
+  text_node 'some text';
+
+HTML::Element's C<deobjectify_text> method will be called by
+C<finalize_tree> before returning the tree object.
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=cut
-- 
cgit v1.2.3