-------- Original-Nachricht --------
Betreff: questions about SQL::Statement
Datum: Mon, 19 Mar 2012 16:59:46 -0400
Von: Philip Goetz <philgo...@gmail.com>
An: rehs...@cpan.org
The module SQL::Statement doesn't work as your documentation describes.
There is no column_defs function defined.
There is a 'columns' function, but it returns an empty list.
For example:
use SQL::Parser;
use SQL::Statement;
my $query = "SELECT a, b, c FROM bar";
our $SqlParser = SQL::Parser->new() or die "Could not create an
SQL::Parser";
my $parse = SQL::Statement->new($query, $SqlParser);
# my @columns = $parse->column_defs(); <-- crashes with Can't
locate object method "column_defs" via package "SQL::Statement"
my @columns = $parse->columns();
foreach my $col (@columns) {
my ($table, $name) = ($col->table(), $col->name());
print "$table\t$name\n";
}
does not crash, but prints nothing.
Do you know how to retrieve the columns from an SQL::Statement object?
Thanks,
Phil
