@@ -9,6 +9,11 @@ @prefix exif: <http://www.kanzaki.com/ns/exif#> . @prefix dc: <http://purl.org/dc/elements/1.1/> . @prefix dcterms: <http://purl.org/dc/terms/> . +@prefix void: <http://rdfs.org/ns/void#> . + +[] a void:Dataset ; + void:sparqlEndpoint <[% endpoint_url %]> ; + void:numberOfTriples [% triples %] . # definition of an endpoint [] a sd:Service ; RDF-Endpoint/include/endpoint_description.rdf @@ -381,6 +381,9 @@ sub remove_statement { my $context = shift; my $dbh = $self->dbh; my $stable = $self->statements_table; + unless (blessed($stmt)) { + Carp::confess "no statement passed to remove_statement"; + } my @nodes = $stmt->nodes; my $sth = $dbh->prepare("DELETE FROM ${stable} WHERE Subject = ? AND Predicate = ? AND Object = ? AND Context = ?"); my @values = map { $self->_mysql_node_hash( $_ ) } (@nodes, $context); RDF-Trine/lib/RDF/Trine/Store/DBI.pm @@ -67,6 +67,9 @@ sub add_statement { my $dbh = $self->dbh; # Carp::confess unless (blessed($stmt)); my $stable = $self->statements_table; + unless (blessed($stmt) and $stmt->can('nodes')) { + Carp::confess "No statement passed to add_statement"; + } my @nodes = $stmt->nodes; foreach my $n (@nodes) { $self->_add_node( $n ); RDF-Trine/lib/RDF/Trine/Store/DBI/mysql.pm f695bcec81e806dda4bb036bb62d651c6e1bf3e9 Gregory Todd Williams greg@evilfunhouse.com http://github.com/kasei/perlrdf/commit/f1db2485af681de0e0c01fac225588fa0e943e15 f1db2485af681de0e0c01fac225588fa0e943e15 2009-10-22T17:20:19-07:00 2009-10-22T17:20:19-07:00 - Added void:Dataset declaration in include/endpoint_description.rdf. - Added sanity debugging in RDF::Trine::Store::DBI::remove_statement and RDF::Trine::Store::DBI::mysql::add_statement. 8c91525067984735d7e87a65b674be08aecad187 Gregory Todd Williams greg@evilfunhouse.com