From 22381c3205f6c24d8e65488b57efb969521aadee Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Fri, 27 Mar 2009 11:57:16 +0100
Subject: HTML::Element builder

---
 lib/Tree/Template/Declare/HTML_Element.pm | 59 +++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 lib/Tree/Template/Declare/HTML_Element.pm

(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
new file mode 100644
index 0000000..1480987
--- /dev/null
+++ b/lib/Tree/Template/Declare/HTML_Element.pm
@@ -0,0 +1,59 @@
+package Tree::Template::Declare::HTML_Element;
+use strict;
+use warnings;
+use Carp;
+use HTML::Element;
+
+sub new {
+    my ($class)=@_;
+
+    return bless {},$class;
+}
+
+sub new_tree {
+    my ($self)=@_;
+
+    return bless [],'Tree::Template::Declare::HTML_Element::Tree';
+}
+
+sub finalize_tree {
+    my ($self,$tree)=@_;
+
+    my $dom=$tree->[0];
+    $dom->deobjectify_text();
+    return $dom;
+}
+
+sub new_node {
+    my ($self)=@_;
+
+    return HTML::Element->new('~comment');
+}
+
+sub add_child_node {
+    my ($self,$parent,$child)=@_;
+
+
+    if ($parent->isa('Tree::Template::Declare::HTML_Element::Tree')) {
+        push @$parent,$child;
+        return $parent;
+    }
+    return $parent->push_content($child);
+}
+
+sub set_node_name {
+    my ($self,$node,$name)=@_;
+
+    return $node->tag($name);
+}
+
+sub set_node_attributes {
+    my ($self,$node,$attrs)=@_;
+
+    while (my ($name,$val)=each %$attrs) {
+        $node->attr($name, $val);
+    }
+    return;
+}
+
+1;
-- 
cgit v1.2.3