diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-25 15:56:13 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-25 15:56:13 +0100 |
| commit | 1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62 (patch) | |
| tree | c486d30d91358cd45a0d3bdb72395e59d7b5213e /lib | |
| parent | added TODO (diff) | |
| download | Tree-Template-Declare-1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62.tar.gz Tree-Template-Declare-1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62.tar.bz2 Tree-Template-Declare-1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62.zip | |
now @_ is not clobbered (more tests needed)
Diffstat (limited to 'lib')
| -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"; |