Added Attean::API::QuadPattern->as_triple_pattern method.

kasei · Feb 12, 2016 · df091c2 · df091c2
1 parent 3d6dab7
commit df091c2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/Attean/API/Binding.pm b/lib/Attean/API/Binding.pm
@@ -356,7 +356,9 @@ package Attean::API::Triple 0.012 {
 
 package Attean::API::QuadPattern 0.012 {
 	use Scalar::Util qw(blessed);
+	use List::MoreUtils qw(zip);
 	use Moo::Role;
+	use namespace::clean;
 
 	sub variables { return qw(subject predicate object graph) }
 	sub value {
@@ -379,6 +381,14 @@ package Attean::API::QuadPattern 0.012 {
 		return $self->apply_statement(@_);
 	}
 
+	sub as_triple_pattern {
+		my $self	= shift;
+		my @keys	= Attean::API::Triple->variables;
+		my @values	= $self->values;
+		@values		= @values[0 .. scalar(@keys)-1];
+		return Attean::TriplePattern->new(zip @keys, @values);
+	}
+
 	sub sparql_tokens {
 		my $self	= shift;
 		my @tokens;