> Date: Wed, 19 Dec 2012 15:53:31 +0100
> From: Thomas Binder <tcb...@gmail.com>
> 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();
> $parser->{RaiseError}=1;
> $parser->{PrintError}=0;
> …
> printf "Offset %s\n",$stmt->offset();
> printf "Columns %s\n",join( ',', map {$_->name}
> $stmt->column_defs() );
The second before last line misses the terminal semicolon.
Hence the error:
> Can't call method "name" on unblessed reference at test.pl
> <http://test.pl> line 14.
Frohe Feiertage …
Michael
