#!/usr/bin/perl

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

my $sql = SQL::Abstract->new;

print "VERSION: ", SQL::Abstract->VERSION(), "\n";

my %where = (
  't.col1' => \'= t.col2',
);
my ($stmt) = $sql->where( \%where);
print $stmt,"\n";

C:\>abstract_test.pl
VERSION: 1.22
 WHERE ( t.col1 = t.col2 )