blob: d8786ddbfc42e3ed7fb6c712a3fcac87fe90aafa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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;
|