File Coverage

blib/lib/OPTIMADE/Filter/Boolean.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch	2	2	100.0
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	22	30	73.3

package OPTIMADE::Filter::Boolean;

use strict;
use warnings;

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

our $VERSION = '0.11.0'; # VERSION

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

sub to_filter
{
    my $self = shift;
    return $self->{value} ? 'TRUE' : 'FALSE';
}

sub to_SQL
{
    die "no SQL representation\n";
}

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

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

1;