File Coverage

blib/lib/Dallycot/AST/StrictlyDecreasing.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	16	30	53.3

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

# ABSTRACT: Test that all values are in strictly decreasing order

use strict;
use warnings;

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

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

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

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

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

sub compare {
  my ( $self, $engine, $left_value, $right_value ) = @_;

  return $left_value->is_greater( $engine, $right_value );
}

1;