diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-17 17:46:40 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-17 17:46:40 +0100 |
| commit | 3a65eeb9b614e7fa4b683db6a98ca0026b5a2404 (patch) | |
| tree | 4fb78434fc3eab36cc4b9c181791b752e8f07000 /lib/Tree/Transform/Utils.pm | |
| parent | some functions (diff) | |
| download | Tree-Transform-XSLTish-3a65eeb9b614e7fa4b683db6a98ca0026b5a2404.tar.gz Tree-Transform-XSLTish-3a65eeb9b614e7fa4b683db6a98ca0026b5a2404.tar.bz2 Tree-Transform-XSLTish-3a65eeb9b614e7fa4b683db6a98ca0026b5a2404.zip | |
passes the first test!
Diffstat (limited to 'lib/Tree/Transform/Utils.pm')
| -rw-r--r-- | lib/Tree/Transform/Utils.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/Tree/Transform/Utils.pm b/lib/Tree/Transform/Utils.pm new file mode 100644 index 0000000..d8786dd --- /dev/null +++ b/lib/Tree/Transform/Utils.pm @@ -0,0 +1,13 @@ +package Tree::Transform::Utils; +use strict; +use warnings; + +sub _rules_store { + no strict 'refs'; + if (!defined *{$_[0].'::_tree_transform_rules'}{HASH}) { + *{$_[0].'::_tree_transform_rules'}={}; + } + return *{$_[0].'::_tree_transform_rules'}{HASH}; +} + +1; |