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


line stmt bran cond sub pod time code
1             package Dallycot::AST::StrictlyDecreasing;
2             our $AUTHORITY = 'cpan:JSMITH';
3              
4             # ABSTRACT: Test that all values are in strictly decreasing order
5              
6 23     23   12053 use strict;
  23         31  
  23         713  
7 23     23   82 use warnings;
  23         37  
  23         455  
8              
9 23     23   83 use utf8;
  23         28  
  23         92  
10 23     23   440 use parent 'Dallycot::AST::ComparisonBase';
  23         32  
  23         108  
11              
12             sub to_string {
13 0     0 0   my ($self) = @_;
14              
15 0           return join( " > ", map { $_->to_string } @{$self} );
  0            
  0            
16             }
17              
18             sub to_rdf {
19 0     0 0   my($self, $model) = @_;
20              
21 0           return $model -> apply(
22             $model -> meta_uri('loc:all-strictly-decreasing'),
23             [ @$self ]
24             );
25             # my $bnode = $model->bnode;
26             # $model -> add_type($bnode, 'loc:StrictlyDecreasing');
27             #
28             # $model -> add_list($bnode, 'loc:expressions',
29             # map { $_ -> to_rdf($model) } @$self
30             # );
31             # return $bnode;
32             }
33              
34             sub compare {
35 0     0 0   my ( $self, $engine, $left_value, $right_value ) = @_;
36              
37 0           return $left_value->is_greater( $engine, $right_value );
38             }
39              
40             1;