SQL::Statement does not handle functions in joins. (As discussed with
Jens in email dd 23/03/2011)
Code
========
#!/usr/bin/perl
use strict;
use SQL::Statement;
use SQL::Parser;
my $parser = SQL::Parser->new();
my $stmt = SQL::Statement->new($ARGV[0],$parser);
====================
$ ./testsql.pl "select p.name, d.name, d.description from person p,
department d where upper(p.dept) = upper(d.name)"
No equijoin condition in WHERE or ON clause at
/opt/ActivePerl-5.12/lib/SQL/Statement.pm line 86
$ ./testsql.pl "select p.name, d.name, d.description from person p JOIN
department d ON upper(p.dept) = upper(d.name)"
No equijoin condition in WHERE or ON clause at
/opt/ActivePerl-5.12/lib/SQL/Statement.pm line 86