From 1a2822c8b182b19d70fd116a3a0bcf038caa6aef Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Wed, 25 Mar 2009 16:48:14 +0100 Subject: now you can specify the engine in the transfor class --- lib/Tree/Transform/XSLTish/Utils.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lib/Tree/Transform/XSLTish/Utils.pm') diff --git a/lib/Tree/Transform/XSLTish/Utils.pm b/lib/Tree/Transform/XSLTish/Utils.pm index 11a25cb..bed1167 100644 --- a/lib/Tree/Transform/XSLTish/Utils.pm +++ b/lib/Tree/Transform/XSLTish/Utils.pm @@ -14,6 +14,18 @@ sub _rules_store { return $pack->get_package_symbol($RULES_NAME); } +my $ENGINE_FACTORY_NAME='$_tree_transform_engine_factory'; + +sub _engine_factory { + my $pack=Class::MOP::Class->initialize($_[0]); + + if (! $pack->has_package_symbol($ENGINE_FACTORY_NAME) ) { + $pack->add_package_symbol($ENGINE_FACTORY_NAME,undef); + } + return $pack->get_package_symbol($ENGINE_FACTORY_NAME); +} + + sub _get_inheritance { return Class::MOP::Class->initialize($_[0])->class_precedence_list; } -- cgit v1.2.3