diff options
| author | dakkar <dakkar@thenautilus.net> | 2009-04-18 15:26:50 +0200 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2009-04-18 15:26:50 +0200 |
| commit | 43217e6ce9a7cae817d391e9bb10a3410c88e6e2 (patch) | |
| tree | 1b5c17afb8992385cfb973c9802a65bf10fc1a83 /lib/Tree/Transform/XSLTish.pm | |
| parent | documentation, and a few author-tests (diff) | |
| download | Tree-Transform-XSLTish-43217e6ce9a7cae817d391e9bb10a3410c88e6e2.tar.gz Tree-Transform-XSLTish-43217e6ce9a7cae817d391e9bb10a3410c88e6e2.tar.bz2 Tree-Transform-XSLTish-43217e6ce9a7cae817d391e9bb10a3410c88e6e2.zip | |
factories are inherited now, added test
Diffstat (limited to 'lib/Tree/Transform/XSLTish.pm')
| -rw-r--r-- | lib/Tree/Transform/XSLTish.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/Tree/Transform/XSLTish.pm b/lib/Tree/Transform/XSLTish.pm index 2176aea..7053428 100644 --- a/lib/Tree/Transform/XSLTish.pm +++ b/lib/Tree/Transform/XSLTish.pm @@ -62,8 +62,10 @@ sub tree_rule { sub engine_class { my ($classname)=@_; - my $factory=Tree::Transform::XSLTish::Utils::_engine_factory(scalar caller); - $$factory=sub{$classname->new()}; + Tree::Transform::XSLTish::Utils::_set_engine_factory( + scalar caller, + sub{$classname->new()}, + ); return; } @@ -71,8 +73,10 @@ sub engine_class { sub engine_factory(&) { my ($new_factory)=@_; - my $factory=Tree::Transform::XSLTish::Utils::_engine_factory(scalar caller); - $$factory=$new_factory; + Tree::Transform::XSLTish::Utils::_set_engine_factory( + scalar caller, + $new_factory, + ); return; } |