From 5baf431cd43d7932f9a21c5d67f74c04409f90a3 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Thu, 23 Apr 2009 15:50:15 +0200
Subject: passes critic

---
 lib/Tree/Template/Declare/HTML_Element.pm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(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 c2dd87c..a589501 100644
--- a/lib/Tree/Template/Declare/HTML_Element.pm
+++ b/lib/Tree/Template/Declare/HTML_Element.pm
@@ -4,6 +4,8 @@ use warnings;
 use Carp;
 use HTML::Element;
 
+our $VERSION='0.1';
+
 sub new {
     my ($class)=@_;
 
@@ -13,8 +15,8 @@ sub new {
 sub _munge_exports {
     my ($self,$exports)=@_;
 
-    return {
-        %$exports,
+    my %all_exports=(
+        %{$exports},
         text_node => sub($) {
             $exports->{node}->(
                 sub {
@@ -22,7 +24,9 @@ sub _munge_exports {
                     $exports->{attribs}->(text => $_[0]);
                 });
         },
-    };
+    );
+
+    return \%all_exports;
 }
 
 sub new_tree {
@@ -50,7 +54,7 @@ sub add_child_node {
 
 
     if ($parent->isa('Tree::Template::Declare::HTML_Element::Tree')) {
-        push @$parent,$child;
+        push @{$parent},$child;
         return $parent;
     }
     return $parent->push_content($child);
@@ -65,7 +69,7 @@ sub set_node_name {
 sub set_node_attributes {
     my ($self,$node,$attrs)=@_;
 
-    while (my ($name,$val)=each %$attrs) {
+    while (my ($name,$val)=each %{$attrs}) {
         $node->attr($name, $val);
     }
     return;
-- 
cgit v1.2.3