Commits

Toby Inkster committed fd218c3

remove last vestiges of non-XRD-vocab implied triples.

Comments (0)

Files changed (1)

lib/XRD/Parser.pm

 use constant NS_XML      => XML::LibXML::XML_XML_NS;
 use constant NS_XRD      => 'http://docs.oasis-open.org/ns/xri/xrd-1.0';
 use constant URI_DCTERMS => 'http://purl.org/dc/terms/';
-use constant URI_FOAF    => 'http://xmlns.com/foaf/0.1/';
 use constant URI_HOST    => 'http://ontologi.es/xrd#host:';
 use constant URI_RDF     => 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
 use constant URI_RDFS    => 'http://www.w3.org/2000/01/rdf-schema#';
 {
 	my $this = shift;
 	
-	return $this if $this->{'comsumed'};
+	return $this if $this->{'consumed'};
 	
 	my @xrds = $this->{'DOM'}->getElementsByTagNameNS(NS_XRD, 'XRD')->get_nodelist;
 	
 			if $first;
 	}
 	
-	$this->{'comsumed'}++;
+	$this->{'consumed'}++;
 	
 	return $this;
 }
 		my $type = $l->getAttribute('type');
 		if (defined $type)
 		{
-			$this->rdf_triple($l, @value, URI_DCTERMS.'format', URI_TYPES.$type);
+			$this->rdf_triple_literal($l, @value, URI_XRD.'type', $type);
 		}
 		
 		foreach my $title ($l->getChildrenByTagName('Title')->get_nodelist)
 			$this->rdf_triple_literal(
 				$title,
 				@value,
-				URI_DCTERMS.'title',
+				URI_XRD.'title',
 				$this->stringify($title),
 				undef,
 				$lang);