diff options
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Utils.pm')
| -rw-r--r-- | lib/Tree/Transform/XSLTish/Utils.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Tree/Transform/XSLTish/Utils.pm b/lib/Tree/Transform/XSLTish/Utils.pm index 770426f..8546919 100644 --- a/lib/Tree/Transform/XSLTish/Utils.pm +++ b/lib/Tree/Transform/XSLTish/Utils.pm @@ -3,12 +3,14 @@ use strict; use warnings; use Class::MOP; +our $VERSION='0.1'; + my $RULES_NAME='%_tree_transform_rules'; sub _rules_store { my $pack=Class::MOP::Class->initialize($_[0]); - if (! $pack->has_package_symbol($RULES_NAME) ) { + if (! $pack->has_package_symbol($RULES_NAME) ) { $pack->add_package_symbol($RULES_NAME,{}); } return $pack->get_package_symbol($RULES_NAME); @@ -22,6 +24,8 @@ sub _set_engine_factory { my $pack=Class::MOP::Class->initialize($pack_name); $pack->add_package_symbol($ENGINE_FACTORY_NAME_WITH_SIGIL,$factory); + + return; } |