From edbd275c4046e3e5c69a05fbca0e5df11f9bf34a Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Thu, 26 Mar 2009 17:33:38 +0100
Subject: custom builder works, it's just ugly

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

(limited to 'lib/Tree/Template/Declare')

diff --git a/lib/Tree/Template/Declare/DAG_Node.pm b/lib/Tree/Template/Declare/DAG_Node.pm
new file mode 100644
index 0000000..c005752
--- /dev/null
+++ b/lib/Tree/Template/Declare/DAG_Node.pm
@@ -0,0 +1,40 @@
+package Tree::Template::Declare::DAG_Node;
+use strict;
+use warnings;
+use Carp;
+
+sub new {
+    my ($class,$node_class)=@_;
+    $node_class||='Tree::DAG_Node';
+
+    eval "require $node_class";
+    croak "Can't load $node_class: $@" if $@;
+
+    return bless {nc=>$node_class},$class;
+}
+
+sub new_node {
+    my ($self)=@_;
+
+    return $self->{nc}->new();
+}
+
+sub add_child_node {
+    my ($self,$parent,$child)=@_;
+
+    return $parent->add_daughter($child);
+}
+
+sub set_node_name {
+    my ($self,$node,$name)=@_;
+
+    return $node->name($name);
+}
+
+sub set_node_attributes {
+    my ($self,$node,$attrs)=@_;
+
+    return $node->attributes($attrs);
+}
+
+1;
-- 
cgit v1.2.3