#!/usr/bin/env perl
use warnings;
use strict;
use HTML::TreeBuilder;
# use XML::LibXML;
use WebSource::Parser;
eval {
print "Parsing with XML::LibXML\n";
# my $parser = XML::LibXML->new();
my $parser = WebSource::Parser->new;
my $doc = $parser->parse_html_string(<<'EOT');
EOT
print $doc->toString;
};
print $@ if ($@);
eval{
print "\n\nParsing with HTML::TreeBuilder\n";
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse(<<'EOT');
EOT
$tree->dump;
};
print $@ if (@)