The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
use HTML::TreeBuilder::LibXML;

plan skip_all => 'this test requires HTML::TreeBuilder::XPath' unless eval 'use HTML::TreeBuilder::XPath;1;';
plan tests => 2;

{
    my $destructor = HTML::TreeBuilder::LibXML->replace_original;
    isa_ok(HTML::TreeBuilder::XPath->new, 'HTML::TreeBuilder::LibXML');
}

isa_ok(HTML::TreeBuilder::XPath->new, 'HTML::TreeBuilder::XPath');