diff options
| author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-25 16:48:14 +0100 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-25 16:48:14 +0100 |
| commit | 1a2822c8b182b19d70fd116a3a0bcf038caa6aef (patch) | |
| tree | 82ec103c12ab95c939980974a33be10279531649 /t/05-html-tree.t | |
| parent | doc tweak (diff) | |
| download | Tree-Transform-XSLTish-1a2822c8b182b19d70fd116a3a0bcf038caa6aef.tar.gz Tree-Transform-XSLTish-1a2822c8b182b19d70fd116a3a0bcf038caa6aef.tar.bz2 Tree-Transform-XSLTish-1a2822c8b182b19d70fd116a3a0bcf038caa6aef.zip | |
now you can specify the engine in the transfor class
Diffstat (limited to 't/05-html-tree.t')
| -rw-r--r-- | t/05-html-tree.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/05-html-tree.t b/t/05-html-tree.t index c025251..eb990e8 100644 --- a/t/05-html-tree.t +++ b/t/05-html-tree.t @@ -1,9 +1,11 @@ #!perl package HtmlTransform;{ - use Tree::Transform::XSLTish; + use Tree::Transform::XSLTish ':engine'; use strict; use warnings; + engine_class 'XML::XPathEngine'; + default_rules; tree_rule match => 'img[@alt="pick"]', action => sub { @@ -34,7 +36,7 @@ $tree->parse(<<'HTML');$tree->eof; HTML { -my $trans=HtmlTransform->new(engine=>XML::XPathEngine->new()); +my $trans=HtmlTransform->new(); my @results=$trans->transform($tree); is_deeply \@results,['this one'],'HTML example'; } |