use 5.010; use lib "lib"; use lib "../RDF-RDFa-Generator/lib/"; use Data::Dumper; use RDF::RDFa::Generator; use RDF::RDFa::Linter; use RDF::RDFa::Parser; use RDF::TrineShortcuts; my $html = <<'HTML';

1 wrgfe6

HTML my $uri = 'http://example.com/'; my $parser = RDF::RDFa::Parser->new($html, $uri, RDF::RDFa::Parser::Config->new('html5','1.1')); my $linter = RDF::RDFa::Linter->new('Facebook', $uri, $parser); print Dumper($linter->find_errors); print rdf_string($linter->filtered_graph => 'Turtle');