diff options
Diffstat (limited to 'lib/Tree')
-rw-r--r-- | lib/Tree/Template/Declare.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm index 372781b..8c33b52 100644 --- a/lib/Tree/Template/Declare.pm +++ b/lib/Tree/Template/Declare.pm @@ -2,6 +2,7 @@ package Tree::Template::Declare; use strict; use warnings; use Sub::Exporter; +use Devel::Caller 'caller_args'; use Tree::DAG_Node::XPath; our $VERSION='0.1'; @@ -17,7 +18,7 @@ our $current_node; sub tree(&) { local $current_node=undef; - my ($ret)=$_[0]->(); + my ($ret)=$_[0]->(caller_args(1)); #warn "returning @{[ $ret->name ]}\n"; return $ret; } @@ -27,7 +28,7 @@ sub node(&) { #warn "new node\n"; { local $current_node=$node; - $_[0]->(); + $_[0]->(caller_args(1)); } if ($current_node) { #warn "adding to parent (@{[ $current_node->name ]})\n"; |