diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-04-23 15:29:16 +0200 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-04-23 15:29:16 +0200 |
| commit | b0c300919fd33fbff9167b294dca14dff0250bc1 (patch) | |
| tree | 62b1f3d4e55543b6aff8e67616efb274dc5db6e9 /lib/Tree/Transform/XSLTish/Utils.pm | |
| parent | new tests (diff) | |
| download | Tree-Transform-XSLTish-b0c300919fd33fbff9167b294dca14dff0250bc1.tar.gz Tree-Transform-XSLTish-b0c300919fd33fbff9167b294dca14dff0250bc1.tar.bz2 Tree-Transform-XSLTish-b0c300919fd33fbff9167b294dca14dff0250bc1.zip | |
passes critic
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; } |