File Coverage

blib/lib/OPTIMADE/Filter/Negation.pm

Criterion	Covered	Total	%
statement	26	30	86.6
branch	4	6	66.6
condition			n/a
subroutine	8	9	88.8
pod	0	6	0.0
total	38	51	74.5

package OPTIMADE::Filter::Negation;

use strict;
use warnings;

use parent 'OPTIMADE::Filter::Modifiable';

sub new {
    my( $class, $inner ) = @_;
    return bless { inner => $inner }, $class;
}

sub inner
{
    my( $self, $inner ) = @_;
    my $previous_inner = $self->{inner};
    $self->{inner} = $inner if defined $inner;
    return $previous_inner;
}

sub to_filter
{
    my( $self ) = @_;
    $self->validate;
    return '(NOT ' . $self->inner->to_filter . ')';
}

sub to_SQL
{
    my( $self, $options ) = @_;
    $self->validate;

    my( $sql, $values ) = $self->inner->to_SQL( $options );
    if( wantarray ) {
        return ( "(NOT $sql)", $values );
    } else {
        return "(NOT $sql)";
    }
}

sub modify
{
    my $self = shift;
    my $code = shift;

    $self->inner( $self->inner->modify( $code, @_ ) );
    return $code->( $self, @_ );
}

sub validate
{
    my $self = shift;
    die 'inner undefined for OPTIMADE::Filter::Negation' if !$self->inner;
}

1;