view release on metacpan or  search on metacpan

lib/Tree/Transform/XSLTish.pm  view on Meta::CPAN

    my ($classname)=@_;

    Tree::Transform::XSLTish::Utils::_set_engine_factory(
        scalar caller,
        sub{$classname->new()},
    );

    return;
}

sub engine_factory(&) {
    my ($new_factory)=@_;

    Tree::Transform::XSLTish::Utils::_set_engine_factory(
        scalar caller,
        $new_factory,
    );

    return;
}