view release on metacpan or  search on metacpan

t/09ops.t  view on Meta::CPAN

89
90
91
92
93
94
95
96
97
98
99
    while (my $r=$stmt->fetch) {
        $str .= sprintf "%s^",join'~',@$r;
    }
    return $str;
}
sub newop {
    my ( $self, $owner, $left, $right ) = @_;
    return $left < $right;
}
__END__
"a disjunction of conjunctions of literals, where each literal is an elementary relational formula or its negation"