summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGianni Ceccarelli <dakkar@dechirico.(none)>2009-03-25 15:56:13 +0100
committerGianni Ceccarelli <dakkar@dechirico.(none)>2009-03-25 15:56:13 +0100
commit1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62 (patch)
treec486d30d91358cd45a0d3bdb72395e59d7b5213e /t
parentadded TODO (diff)
downloadTree-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 't')
-rw-r--r--t/02-xslt.t10
1 files changed, 4 insertions, 6 deletions
diff --git a/t/02-xslt.t b/t/02-xslt.t
index 0870716..2778586 100644
--- a/t/02-xslt.t
+++ b/t/02-xslt.t
@@ -7,18 +7,16 @@ use strict;
use warnings;
tree_rule match => '/', action => sub {
- my $t=$_[0];
tree {
- $t->apply_rules;
+ $_[0]->apply_rules;
};
};
tree_rule match => '*', priority => 0, action => sub {
- my $t=$_[0];
node {
- name $t->it->name;
- attribs %{$t->it->attributes};
- $t->apply_rules;
+ name $_[0]->it->name;
+ attribs %{$_[0]->it->attributes};
+ $_[0]->apply_rules;
};
};