diff options
author | dakkar <dakkar@sardina.(none)> | 2009-04-30 21:50:05 +0200 |
---|---|---|
committer | dakkar <dakkar@sardina.(none)> | 2009-04-30 21:50:05 +0200 |
commit | a2ad1449e5f0fa52c03c486966131b5528f2a04a (patch) | |
tree | 37037ff63bc337e374481c6033e07b022c1ffec6 /lib/Tree/Transform/XSLTish/Utils.pm | |
parent | added a prerq I had forgotten (diff) | |
parent | better perl version requirements (diff) | |
download | Tree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.tar.gz Tree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.tar.bz2 Tree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.zip |
Merge branch 'master' of git@luxion:Tree-Transform-XSLTish
Conflicts:
Makefile.PL
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Utils.pm')
-rw-r--r-- | lib/Tree/Transform/XSLTish/Utils.pm | 30 |
1 files changed, 22 insertions, 8 deletions
diff --git a/lib/Tree/Transform/XSLTish/Utils.pm b/lib/Tree/Transform/XSLTish/Utils.pm index bed1167..c760585 100644 --- a/lib/Tree/Transform/XSLTish/Utils.pm +++ b/lib/Tree/Transform/XSLTish/Utils.pm @@ -3,26 +3,29 @@ use strict; use warnings; use Class::MOP; +our $VERSION='0.2'; + 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); } -my $ENGINE_FACTORY_NAME='$_tree_transform_engine_factory'; +our $ENGINE_FACTORY_NAME='_tree_transform_engine_factory'; +my $ENGINE_FACTORY_NAME_WITH_SIGIL='&'.$ENGINE_FACTORY_NAME; -sub _engine_factory { - my $pack=Class::MOP::Class->initialize($_[0]); +sub _set_engine_factory { + my ($pack_name,$factory)=@_; + my $pack=Class::MOP::Class->initialize($pack_name); - if (! $pack->has_package_symbol($ENGINE_FACTORY_NAME) ) { - $pack->add_package_symbol($ENGINE_FACTORY_NAME,undef); - } - return $pack->get_package_symbol($ENGINE_FACTORY_NAME); + $pack->add_package_symbol($ENGINE_FACTORY_NAME_WITH_SIGIL,$factory); + + return; } @@ -31,3 +34,14 @@ sub _get_inheritance { } 1; +__END__ + +=head1 NAME + +Tree::Transform::XSLTish::Utils - utility functions + +=head1 AUTHOR + +Gianni Ceccarelli <dakkar@thenautilus.net> + +=cut |