| Subject: | SQL::Statement::columns not set correctly. |
Important and perhaps critical.
It appears as though SQL::Statement::new is not setting the columns
attribute. Using Perl, v5.10.0 and SQL::Statement 1.23, the columns
attribute does not get populated.
use strict;
use warnings;
use SQL::Statement;
my $sql = "
SELECT a FROM b JOIN c WHERE c=? AND e=7 ORDER BY f DESC LIMIT 5,2
";
my $parser = SQL::Parser->new();
my $stmt = SQL::Statement->new($sql,$parser);
print "$SQL::Statement::VERSION\n"; # 1.23
print ref $stmt->{columns}; # Nothing!!!
print join( "\n", sort keys %$stmt ); # columns is included.
__END__