diff options
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Utils.pm')
-rw-r--r-- | lib/Tree/Transform/XSLTish/Utils.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/Tree/Transform/XSLTish/Utils.pm b/lib/Tree/Transform/XSLTish/Utils.pm new file mode 100644 index 0000000..cdc58f7 --- /dev/null +++ b/lib/Tree/Transform/XSLTish/Utils.pm @@ -0,0 +1,21 @@ +package Tree::Transform::Utils; +use strict; +use warnings; +use Class::MOP; + +my $RULES_NAME='%_tree_transform_rules'; + +sub _rules_store { + my $pack=Class::MOP::Class->initialize($_[0]); + + if (! $pack->has_package_symbol($RULES_NAME) ) { + $pack->add_package_symbol($RULES_NAME,{}); + } + return $pack->get_package_symbol($RULES_NAME); +} + +sub _get_inheritance { + return Class::MOP::Class->initialize($_[0])->class_precedence_list; +} + +1; |