File Coverage

blib/lib/Dallycot/AST/Unique.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	2	0.0
condition			n/a
subroutine	5	9	55.5
pod	0	3	0.0
total	20	49	40.8

package Dallycot::AST::Unique;
our $AUTHORITY = 'cpan:JSMITH';

# ABSTRACT: Test that all values are unique

use strict;
use warnings;

use utf8;
use parent 'Dallycot::AST';

use Promises qw(deferred);

sub to_string {
  my ($self) = @_;
  return join( " <> ", map { $_->to_string } @{$self} );
}

sub to_rdf {
  my($self, $model) = @_;

  #
  # node -> expression_set -> [ ... ]
  #
  return $model -> apply(
    $model -> meta_uri('loc:all-unique'),
    [ @$self ]
  );
}

sub execute {
  my ( $self, $engine ) = @_;

  return $engine->collect(@$self)->then(
    sub {
      my (@values) = map {@$_} @_;

      my @types = map { $_->type } @values;
      return $engine->coerce( @values, \@types )->then(
        sub {
          my (@new_values) = @_;

          # now make sure values are all different
          my %seen;
          my @unique = grep { !$seen{ $_->id }++ } @new_values;
          if ( @unique != @new_values ) {
            return $engine->FALSE;
          }
          else {
            return $engine->TRUE;
          }
        }
      );
    }
  );
}

1;