view release on metacpan or  search on metacpan

lib/Template/Refine/Utils.pm  view on Meta::CPAN

sub replace_text($$) {
    my $node = shift;
    my $text = shift;
    $node = $node->cloneNode;
    $node->removeChildNodes;
    $node->addChild( XML::LibXML::Text->new( $text ) );
    return $node;
}

sub simple_replace(&$) {
    my ($code, $xpath) = @_;
    return Template::Refine::Processor::Rule->new(
        selector => Template::Refine::Processor::Rule::Select::XPath->new(
            pattern => $xpath,
        ),
        transformer => Template::Refine::Processor::Rule::Transform::Replace->new(
            replacement => $code,
        ),
    );
}