#!/usr/bin/perl

use strict;
use warnings;
use lib qw(./lib);
use SQL::Abstract;

my $sql = SQL::Abstract->new;
# WHERE ( (id = ? AND user = ?) OR (birthday = ? AND gender = ?) )
my %where = (
  -or => [
     {
        id => '1',
        user => 'hallo',
     },
     {
        birthday => '12.01.1999',
        gender => 'm',
     }
  ],
);
my ($stmt) = $sql->select('tabelle', [qw/a b c/], \%where);
print $stmt;