diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-27 11:57:16 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-27 11:57:16 +0100 |
| commit | 22381c3205f6c24d8e65488b57efb969521aadee (patch) | |
| tree | 121f349d809c784dcfc45fcbdeb9a254024a3ce1 /lib/Tree/Template/Declare.pm | |
| parent | custom builder works, it's just ugly (diff) | |
| download | Tree-Template-Declare-22381c3205f6c24d8e65488b57efb969521aadee.tar.gz Tree-Template-Declare-22381c3205f6c24d8e65488b57efb969521aadee.tar.bz2 Tree-Template-Declare-22381c3205f6c24d8e65488b57efb969521aadee.zip | |
HTML::Element builder
Diffstat (limited to 'lib/Tree/Template/Declare.pm')
| -rw-r--r-- | lib/Tree/Template/Declare.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm index 0cff864..9778f42 100644 --- a/lib/Tree/Template/Declare.pm +++ b/lib/Tree/Template/Declare.pm @@ -49,9 +49,12 @@ sub _build_group { return { tree => sub(&) { - local $current_node[0]=undef; - my ($ret)=$_[0]->(caller_args(1)); - return $ret; + my $tree=$builder->new_tree(); + { + local $current_node[0]=$tree; + $_[0]->(caller_args(1)); + } + return $builder->finalize_tree($tree); }, node => sub (&) { my $node=$builder->new_node(); |