#!/usr/bin/perl

use strict;
use warnings;
use RDF::Trine;
use RDF::Query;
use HTML::HTML5::Microdata::Parser;

my $html;
my $baseURI='http://schema.org/';
open(IN, "full_md.html") || die "no file";
while(<IN>) {   $html .= $_ ; }

my $parser = HTML::HTML5::Microdata::Parser->new($html, $baseURI);
my $model  = $parser->graph; # RDF::Trine::Model

my $sparql=<<EOQ;
SELECT ?s ?p ?o WHERE {
 ?s ?p ?o
}
EOQ

#print $model;

my $query = RDF::Query->new( $sparql );
my $iterator = $query->execute( $model );
while (my $row = $iterator->next) {
  print ".";
  print $row->{ 'p' }->as_string;
}