File Coverage

blib/lib/Dallycot/AST/Any.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	4	0.0
condition			n/a
subroutine	4	9	44.4
pod	0	3	0.0
total	16	42	38.1

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

# ABSTRACT: Return true iff any expression evaluates true

use strict;
use warnings;

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

sub simplify {
  my ($self) = @_;

  return bless [ map { $_->simplify } @$self ] => __PACKAGE__;
}

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

  #
  # node -> expression_set -> [ ... ]
  #
  return $model -> apply(
    $model -> meta_uri('loc:any-true'),
    [ @$self ],
    {}
  );
  # my $bnode = $model->bnode();
  #
  # $model -> add_type($bnode, 'loc:AnyTrue');
  #
  # foreach my $expr (@$self) {
  #   $model -> add_expression($bnode, $expr);
  # }
  # return $bnode;
}

sub process_loop {
  my ( $self, $engine, $d, @expressions ) = @_;

  if ( !@expressions ) {
    $d->resolve( $engine->FALSE );
  }
  else {
    $engine->execute( shift @expressions, ['Boolean'] )->done(
      sub {
        if ( $_[0]->value ) {
          $d->resolve( $engine->TRUE );
        }
        else {
          $self->process_loop( $engine, $d, @expressions );
        }
      },
      sub {
        $d->reject(@_);
      }
    );
  }

  return;
}

1;