1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
package OPTIMADE::Filter::Known;
use strict;
use warnings;
use parent 'OPTIMADE::Filter::Modifiable';
our $VERSION = '0.11.0'; # VERSION
sub new {
my( $class, $is_known, $property ) = @_;
return bless { is_known => $is_known, property => $property }, $class;
}
sub is_known
{
my( $self, $is_known ) = @_;
my $previous_is_known = $self->{is_known};
$self->{is_known} = $is_known if defined $is_known;
return $previous_is_known;
}
sub property
{
my( $self, $property ) = @_;
my $previous_property = $self->{property};
$self->{property} = $property if defined $property;
return $previous_property;
}
sub to_filter
{
my( $self ) = @_;
$self->validate;
return $self->property->to_filter . ' IS ' .
($self->is_known ? 'KNOWN' : 'UNKNOWN');
}
sub to_SQL
{
my( $self, $options ) = @_;
$self->validate;
my( $sql, $values ) = $self->property->to_SQL( $options );
$sql = "$sql IS " . ($self->is_known ? 'NOT NULL' : 'NULL');
if( wantarray ) {
return ( $sql, $values );
} else {
return $sql;
}
}
sub modify
{
my $self = shift;
my $code = shift;
$self->property( $self->property->modify( $code, @_ ) );
return $code->( $self, @_ );
}
sub validate
{
my $self = shift;
die 'property undefined for OPTIMADE::Filter::Known' if !$self->property;
}
1;
|
