the great renaming, part 1

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;