File Coverage

blib/lib/WQS/SPARQL/Result.pm

Criterion	Covered	Total	%
statement	41	44	93.1
branch	9	12	75.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	59	65	90.7

package WQS::SPARQL::Result;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);
use URI;

our $VERSION = 0.03;

sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Verbose mode.
	$self->{'verbose'} = 0;

	# Process parameters.
	set_params($self, @params);

	return $self;
}

sub result {
	my ($self, $result_hr, $vars_ar) = @_;

	if (! defined $vars_ar) {
		$vars_ar = $result_hr->{'head'}->{'vars'};
	}

	if ($self->{'verbose'}) {
		require Data::Printer;
		Data::Printer::p($result_hr);
	}

	my @res;
	if (exists $result_hr->{'results'}->{'bindings'}) {
		my @items = @{$result_hr->{'results'}->{'bindings'}};
		foreach my $item_hr (@items) {
			my $result_hr;
			foreach my $var (@{$vars_ar}) {
				if (! exists $item_hr->{$var}) {
					next;
				}

				# TODO Implement other values

				# QID.
				# TODO Check real QID, could be another uri.
				if ($item_hr->{$var}->{'type'} eq 'uri') {
					my $qid_uri = URI->new($item_hr->{$var}->{'value'});
					my @segs = $qid_uri->path_segments;
					$result_hr->{$var} = $segs[-1];
				} elsif ($item_hr->{$var}->{'type'} eq 'literal') {
					# TODO Lang?
					$result_hr->{$var} = $item_hr->{$var}->{'value'};
				} else {
					err "Type '".$item_hr->{$var}->{'type'}."' doesn't supported.";
				}
			}
			push @res, $result_hr;
		}
	}

	return @res;
}

1;

__END__