[libcatmandu-rdf-perl] 13/20: Fixing blank nodes

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/0.32
in repository libcatmandu-rdf-perl.

commit d78802181319e7c11e1fb79febe0aa750018a899
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Sat Jul 29 11:32:13 2017 +0200

    Fixing blank nodes
---
 lib/Catmandu/Importer/RDF.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/Catmandu/Importer/RDF.pm b/lib/Catmandu/Importer/RDF.pm
index 8a443fa..6a0810c 100644
--- a/lib/Catmandu/Importer/RDF.pm
+++ b/lib/Catmandu/Importer/RDF.pm
@@ -155,6 +155,8 @@ sub rdf_generator {
 
         if ($self->triples) {
             if (my $hashref = $stream->()) {
+              use Data::Dumper;
+              warn Dumper($hashref);
                 $self->encoder->add_hashref($hashref, $aref);
             }
             else {
@@ -280,12 +282,16 @@ sub _hashref_stream {
     my $handler = sub {
         my $triple = shift;
 
-        my $subject   = $triple->subject->value;
-        my $predicate = $triple->predicate->value;
+        my $subject   = $triple->subject->is_blank ?
+                            '_:' . $triple->subject->blank_identifier :
+                            $triple->subject->uri_value;
+        my $predicate = $triple->predicate->is_blank ?
+                            '_:' . $triple->predicate->blank_identifier :
+                            $triple->predicate->value;
         my $value     = $triple->object->is_literal ?
                             $triple->object->literal_value :
                             $triple->object->is_blank ?
-                              $triple->object->value :
+                              '_:' . $triple->object->blank_identifier :
                               $triple->object->uri_value;
         my $type      = lc $triple->object->type;
         my $lang      = $triple->object->is_literal ? $triple->object->literal_value_language : undef;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-rdf-perl.git