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;