File Coverage

blib/lib/Dallycot/AST/BuildSet.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	26	61.5

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

# ABSTRACT: Create set value

use strict;
use warnings;

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

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

  return $model -> apply(
    $model -> meta_uri('loc:build-set'),
    [ @$self ],
    {}
  );
  # my $bnode = $model -> bnode;
  # $model -> add_type($bnode, 'loc:Set');
  # $model -> add_list($bnode, 'loc:expressions',
  #   map { $_ -> to_rdf($model) } @{$self}
  # );
  #
  # return $bnode;
}

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

  return $engine->collect(@$self)->then(
    sub {
      return Dallycot::Value::Set->new(@_);
    }
  );
}

1;